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IMTPOnuC T TOM 



The objective ot ♦’his thesis was to investigate 
the fees i Oil i tv ot a speciaHzed rpicrocomouter: a "COPOL 

calculator.” This COBOL calculator woula interpret onlv 
COBOL proorams anc was to be desianec using si mole 
algorithms/ similar to a proorammahle calculator/ wnic^ 
/»ould be imclementec i^ microcode on a hiqh*oerfor^ance 
microprocessor. 



COBOL was chosen as the source 1 anguace Decause it 
is used throuqnou’’ t^e ^’avy and tne business worla. Tne 
version of COBOL usea for this machine is MiCPu-CChOL/ which 
was developed by LT A. S. Craig ourino tne course o^ his 
thesis work at fne ^'aval Postoraouate Scnool (see Peference 
1). MTCPO-COBOL is an extension of the U.S* f'Javv defined 
Hvpo-COROL/ which represents the 'minimum acceptable workino 
subset of COBOL withip th<^ ^lavy. 

The use of a oure interpreter to execute CUPUL 
proarams can be considered feasible since COBOL is heavily 
1/0 aependent. Thus the time reouired to interpret t h 
source code is small in comparison to the I/O aelays. 

The prelim inarv specification of the machine 
hardware was completed using the Advanced ‘^icro Oevices 
Am^QuO family of micrcprocramable high-oerformance circuits. 
This family is cen^’ered around a bioo^ar/ four-oif-slic^^^ 
microprocessor LBI chip. Pioure 7 contains a svstem pesign 



using this family circuits. Tn addition/ the use of a 
highly flexible "rneta-assenbler/** which simplifies the 
designers’ tas< of creating m i c ro i n s t r uc t i on s / is 
1 nt reduced. 

fhe last major goal was tne aesign of tne 
algorithms to be used to interoret CObOL in the machine 
microcode. This was accomolished using the lanauage C , 
which is available on the UNIY oo^ratinc system at the Naval 
Postgraduate School. The software wnich was imn lamented 
includes a workina editor and interor^ter. The desian of tne 
editor and the interpreter stressea s i mol i city rather than 
efficiency. Concepts such as reolacina pointers with a 
linear search/ ApCII character arithmetic/ ana storage of 
variable values within the source code were used. Tn^se 
algorithms must now oe conver^ed to microcode and run on a 
development system to d'^ter^'ine if the execution ti^es are 
fast enough to make the CClBOL calculator concept 
ooerationally feasible. 
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software 



1 1 . 



The COBOL machine aescrioea here consist's of the 
following software nrodules: a monitor/ an editor/ a pure 
interoreter/ and a debuoger. Of these# the editor and the 
interpreter were desianed and imolemented as part of this 
thesis, both the <^ditcr ancj the interoreter were written in 
the' systems pronramrring 1 anauage *C* and were comoiled and 
tested on the operatinc system. Tho skeleton monitor# 

I 

which was necessary for testing purposes# nas not been 
included. The aeouqoer will be briefly described as a simole 
extension of the interpreter. 

The editor and the interpreter were oesionea for 
simplest 1 mo ] emen t a t 1 c n . Tn general# eacn module consists of 
a string of subroutines which are as independent as 
possible. The objective was to develop simple# 
straiantforwara# linear pronram modules that would eaic and 
interoret COBOL ana be short enough to be storea in Read 
Only ^enory (^0^). 
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THt EDITOP--COED 



The editor is the user’s means of communicatina 
with the COBOL machine. Aside from accepting COBOL pronrams 
line-by-line from the console and providing the stanaard 
edit functions/ the eoitor performs some functions normally 
performed by an interpreter/compiler. These functions 
include creatinq and maintaining a symbol table and 
replacing the CObOL source words in the procedure division 
with to<en numbers. This greatly s implies the 
interpretation phase ana does not create a substantial 
overhead during editing. 

A hen invo*<eO/ the naitor either cr«»ates a new 
file/ or opens an already e^^'istino file bv loaaina it into 
memory from a random access oevice. bach CU^UL statement to 
be entered into this file must beoin with a five character 
line index. The first character of this inaex denenas uoon 
the division of the COB^L pronram which is beina euitted 



(see APPENDIX C) . 
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simolv a list of orintnames/ each a rr. aximum of lb characters 



lonq. The printnames of all COBOL reserved woros are entries 
in the symbol table. For a completed COBOL nrcgram/ there 
exists a one-to-one co r resoonaenc e between COBOL reserved 
words# acceptable punctuation# all orogram identifiers# 
literals and symbol table entries. The relative adaress of a 
printname within the symbol table is the entry’s token 
number# allowinc simple conversion between token nunoers and 
printnames. 

The Procedure ai vision is converted entirely to 
tOKen numbers by the editor exceot for the five cnaracter 
line number that must preceea ev^ry COBOL statement. 
identifiers must be declar<“0 in th^ Oata division# ana# 
aside from commpots# only reserved woras ana literals are 
allowea in the Procedure division. Thus# any unaeclared 
identifiers# or tvpinc and soeMinq errors are caunnt here 
in the edit chase where they can b^ easily correcteo. It is 
mandatory# therefore# to enter the entire Oata ai vision 
before entering the Procedure division. 

The editor operates in mpmorv in the followina 
way. When invoked# tne editor initializes two memory 
pointers# col and coi (see Fioure 1). Col is the oo inter in 
low memory which always addresses tnp last byte accessed. 
This byte was either newly added# modified# or just examined 
by the user. The oo inter in high memory is CD^^# which 
addresses the remaining CObOL orooram# if it exists# or tne 
last available byte ir memory (see Fiaure 2). N'emorv is thus 
diyioecj into three areas: area T in low memory# area II in 



high men^ory# and the uork soace in the midale. Console input 
characters are queueo in a line buffer until a period and a 
carriage return character are ent#»rea. At this time/ the 
entire line is writtpn into memory/ beoinnino with the last 
accessed byte (the one addressed by col). Characters (bytes) 
are constantly beina moved uD or down in memory as necessary 
to open the space at the point in user*s COBOL program 
where editinc is takino place (see Fiaure 3). The symbol 
table is storea in a temoorarv data area during tne edit 
phase. 
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CObOL proaram/ directly following its end of file (FOF), 

The edi^ec COBOL program consists of 
Identification/ Fnvironment/ and Data divisions in tneir 
oriainal source code/ the to<eni 2 ed Procedure division/ and 
the symool table. In this form/ it can ^»ither oe stored on 
some random access device for subsecuent in^'erpreting/ or oe 
interpreted directly tollowino the termination of edit. 
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MEMORY DIAGRAMS 





Figure 1 . 

Initially, all of memory 
is viewed as work space. 



Figure 2 . 

CPI is the byte offset of 
the last character entered 
by the user. CP2 stays at 
its initialized value until 
the first search. 




Area I 



Work 

Space 



Area II 



When the editor must access 
a particular line, in this 
case AOOlO, bytes are moved 
between Area I and Area II 
until the line is found. 
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Identification and 
Environment divisions 



beginning Data division 



Work Space 



remaining Data division 



Procedure division 



Symbol Table 



Figure 4 . 

Memory as viewed by the interpreter 
after storing a value into identifier!. 
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THt IMTERPRE1ER--C0IN 



^hen the inferpre^’er is invoked# if the edited 
COBOL prooram does not already exist in memory# it is loaded 
one oyte at a time beoinnina with relative address 0, ^*ext# 
the beainnino of the procedure division must be located. As 
the search oroceeds# bytes are moved ud in memory startinq 
with the last byte of the symbol table until the first line 
number of the Procedure division been moved. The work 
soace in the middle of the memory array is now defined. 

The int^rcreter then initializes all the 
identifiers whose initial value has been defined by the user 
with the value option. Identifier values ar^ stereo in tne 
Uata division following its PTC ano/or VALUE clause. Bytes 
are moved un in memory until the worx soace heoins at the 
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1 d e n t i f i 


e r 


values are 


stored 


i n 


the Data 


d 1 V i s i 


on in 


this 


manner . 


The 


interpreter 


w r i t e s 


t K e 


d e s 1 red 


value 


into 


tne 



work space# thereby -making it a oart of the Data division 
(see Fiaure 

A proaram counter is initialized to the relative 
address of the b<^g inning of the Procedure division. This 
counter IS incremented byte by byte as the division is 
scanned for grammatical correctness. Eacn comolete CUPOL 
statement is executed as it is scanned. 

The first bvte after each line number is the token 
for a i<eyword that determines the ^yoe of COBOL statement 



which follows. Rased upon this token/ the interpreter calls 



a subroutine to handle the statement forn^. The suoroutine 
scans the statement (token chain) for ac c ep t i b i 1 i t y until 
the *E0L’ character/ inserted by the editor/ and performs 
the desired action, A)l embedded blank/ tao/ and comma 
tokens are accented bv the interpreter. 

If a arammatical error (misplaced or unexpected 
token) is scanned/ an error ^lag is set that causes 
execution to stop with an aoprooriate error messaae sent to 
the user, ^t this coin^z a aebuqcer could be entered. Since 
all identifier values are availaole in the bata division and 
the current line numo^r is always accessible/ an error could 
oe corrected and scarnino/^^xecution could resume at the 
statement, ^^ormal execution halts when the token for STOP is 
scanned, 

.vhen a jump is requir«=»d to execute a particular 
statement/ the orooram counter is reset to the first token 
of tne Procedure division and the first to<en of each lin^ 
is scanned until the cesired destination is found. Execution 
of the PEPFOP^ verb involves a rpturn Jumo and therefore 
requires the return token to be saved. At present/ an eioht 
level software stack is implemented which allows PE^f-OR'-* 
statements to be nested eight deeo. This could be changed/ 
however/ since overall machine r^emory si?e is the only 
restriction. 

Each time an identifier value is ^etched or 
stored/ the following s^*ecs are executed: 

1) The token number is ^aoped its printname 



tb 




I 



(the token number is the ina^x of the orintname in 



the sy mbo I table). 

2) Bytes are moved seauentially up or down in 
memory between Area T ana Area II until a 
orintname match is found. 

3) Scan continues f rom here until an eoua) Sion 
or *E0L* character. 

The value is trien <^ither written from a 
scratch buffer into the work snace at this point 
or f^ritten from the Oata Division into a scratch 
buffer for furtner action. 1^ a READ or 
statement is oeing orocessedf thp PIC clause 
determines the format in which the oata value is 
written. Otherwise^ it is simply cooieo byte by 
byte as it aopears in tne buffer or memory. 

The arithmetic routines operate uoon the ASCII 
characters stored in the Cata division if the ooerana is a 
variable^ or upon the svmbol table in the case of a literal, 
bach routine uses look-up taoles to perform its operation of 
addition^ subtraction^ multiplication/ or Division. The 
operands are loaded into two variaole lenath buffers/ called 
X and y/ and operatea uoon seauentially one pair of Dytes at 
a time beginning with riahtmost byte of each buffer. As 

Defined by ^UCHO-CQRuL/ the result is written into the Oata 
Division area c o r r e s pc nd i ng to the secona ooerana. It should 
be noted that as the LSI circuits are Developed/ the tabla 
lookuD method can easily be renlaceO by using four-bit 



adae r / sub t r ac t o r and multiolier chins. 
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THE TARGET MACHINE 



One develoQnent which makes a CObOL machine 
feasible is the wiae availibility of Hinh performance bit- 
slice microorocessors on LSI chips. A bit-sMce micropro- 
cessor is a circuit which has all the recuirea inputs and 
outputs of a basic orccessor function# such as the ALU# hut 
is only two or four bits wiae. Any number of these two or 
four bit-slices are connected in parallel to allow process- 
ing of data words of anv desired width. Thusr the svst*em 
designer is able to specify a processor ^hich meets particu- 
lar reauirements. Ihis flexih^^lity is hiahly aesirable in 
many applications where the optimum wora size is Greater 
than the common eight pits available on most fixed architec- 
tured microprocessors. 

The majoritv of Pit-slice microprocessors achieve 
their high performance usino bipolar tecnnolony. The commer- 
cial development of oi polar FTL# ECL# ana Schottky bipolar 
DTL chips represent a major step in increasing performance, 
bipolar switching circuitry is t'en to a hundrea times faster 
than similar MQS switchina circuitry. 

The aisaavamtage of Dipolar circuitry is that it 
cannot yet Pe racked as densely as the MOS ecu i valent# thus 
requiring more cnips for a niven number of circuits. Tn many 
pit-slice applications this is not a sionificant disadvan- 



tage wnen compared with the increase in speed 



The second major development which effects the 



COBOL "calulator" is the introduction of bit-slice micropro- 
cessor families whicn are m i c roorogrammab 1 e . Microprogram 



logic 


is placed in Read Only '^emory (PO^^) and replaces the 


usual 


hardware random logic circuits. The aavantages are 


found 


in the more ordered approach to function implementa- 



tion and the ease of reolacino the loaic. The logic to de- 
fine a function is stored in ^roqramrnaole Read-Only Memory 
(PROM) as a block o^ 'microinstructions and/ if a change is 
aesireO/ a new PRO^ is oronrammed with aifferent microin- 
structions. A further advantage is the ability to define a 
powerful instruction set/ called macro instruct ions for an 
architecture where each instruction is actually implemented 
with several microinstructions. This increases the perfor- 
mance of the machine sionificantly since the access time for 
ROM is two to ten times faster than Random Access f-^emorv 



tRAM) 


where macroinstructions are stored. 



T^e most common uses tor bit-slice microorogramm- 



able 


machines incluce dioital filters ano emulators. Pit 



slice processors are particularly well suitea for emulation/ 
since a given macroinstruction can be mapped to a set ot mi- 
croinstructions which execu^'e the desir^a function. 





Although emulation is effective/ the COBOL calcu- 


1 a t o r 


does not emulate a machine languaae. The necessary 


logic 


to interpret a ^ICRD-COPOL program is in microcode in 



the PRON'. by implementing the COBOL editor and interpreter 
in microcoae/ the machine Deccmes a COBOL ’’calculator” and 



thus it will only process ’^ICRO-CO^UL. The internreter is 



jmplementea in microccdp to increase performance 
noted previously/ the algorithms were extrer^ely s 
simple alaorithmsf balanced bv a hiah oerformance 
it is possible to keeo the overall length of 
small enough to write in microcode/ while retaini 



/ ano/ as 
i m n 1 e • rJ i t h 
processor / 
the program 
ng a feasi- 



ble execution time 
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FHt Ama^OO family 



The COBOL calculator was 'iesianeo within the limi- 
tations of a widely available microproarammable four-oit- 
slice bipolar microprocessor family/ the 4m?900 series^ 
developed oy ^dvancea Micro Devices (see Pe*^erence 2)* 

1. Am2^01 

The Am2^01 is four bit-sHce bipolar microoroces- 
sor Chip which can be easily cascaded to anv number of 
Chios. Fioure 5 is the bloc^ diaq'^am of this chip. The 2^01 
consists of 16 wor<inc recisters^ a Q register, shift multi- 
piercers# and an eight-function ALU. It features simultaneous 
access to any two registers/ and left and right shift opera- 
tions inoependent of the ALU. The machine cvcle times/ based 
upon a two register add function/ is 110 nanoseconas for the 
Am29ol and S5 nanoseconds for the new Am^^QQOA. 

2 . Am20Q9 and Am?9 1 1 

The Am290^ is a four bit cascadable microorogram 
sequencer. Its bloc< dianram is shown in Figure 6. The 2^0^ 
controls the execution secuence of a series of microins^rtic- 
tions. The address of the next microinstruction to be exe- 
cuted can come from the pronram counter register/ the stac</ 
the internal address reaister/ or a direct input. The latter 
two sources allow for an n-way branch at any point in the 
microprogram. The ac < allows four levels of subroutine 
calls. 'I’he internal address register (lAR) can be connected 



to the pipeline reaister 



or the mapping PPO^ as shown in 



Figure 7* The outout can oe set to the first microword 
(0000) using the zero incut. Each output bit can be 
for conditional instructions. 

The is similar^ exceot the direct incut is 

connected to the internal register and the OR inputs are re- 
moved. 

3. Additional Circuits 

The Am^^OP is 3 high-speed loo><-aheaa carry gen- 
erator providing a lcol«:-ahead carry for up to four Arr^^Ol 
Chios. The Arr^QOS and A-t? 906 are qijad two-input open- 
collector bus transceivers. Additional chips which are 
available include fcur-bi^" registers/ counters/ multi- 
plexers/ adders/ and multipliers. Read-Only Memory (RAM) and 
Proarammed Read-Only ^^emory (PRONi) are available in several 
sizes and access sceed*=J. Chios wnich will soon become 
available include a Direct Memory Access. Reference 2 con- 
tains a detailed explanation of these and other circuits. 



Am2901 

MICROPROCESSOR SLICE BLOCK DIAGRAM 




Figure 5 . 
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Mapp ing 
PROM 




Output 



Figure 6. Am2909 Microprogram Sequencer 

Block Diagram 
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MACHINt DESIGN 



Figure 7 is a detailed hlocW diagram of the pro* 
DOSed COBOL calculator. The machine is desianed around 
several basic blocks; a 4096 by 2^-bit microprooram PPQ^/ a 
16-bit ALUf an ^-bit cat a bus^ and a oioeline register. 

The pioeline reoister holds the next instruction 
to be executed. ^Jhile an microinstruction is heino executed^ 
the next instruction is moved into the oioeline reoister. 
A- i thin one machine cycles the sequencer fields ar^ decoded 
and the next instruction address is available to PPOt''!. This 
fetch is concurrent ^ith anv ALU operations. 

Ihe siz<^ of the microoroqram PK0i''i was determined 
by the estimated size o^ the editor anq the interpreter. 
This estimate was made by examining the size of tne POP-lt 
assembly lancuage version of these software modules ^3000 
lines of assembly code and t-ahlesl. /ihile the corresoondemce 
is not one-to-onef any increase in size due to microcoding 
will be partially offset by eliminating routines and state- 
ments which were inserted to oermit execution under the U^'IX 
ooerating system. 

•The data bus size was determined by the nature of 
the interpreter. Only ASCII characters and F-bit token 
numbers are manioulated. Thus/ only an 8-bit data bus is 
r equ i r eo . 

[he ALU handles two types of data. First/ the ma- 
jority of ooerations will involve characters and token 
numbers of eioht bits. The second tvpe is memorv address da- 



?4 



I 



t d f such as the prooram counter. This reqtjires 16 bits for a 



b^K byte mernory and ?0 oits for a one meqabyte memory. Ran- 
dom Access Memory of 64K should sufficient# but if the 
laraer memory is required another and Am<2^02 can 
easily be connectea. 

In the bloc^c diagram^ Figure 7# the sugcestea LSI 
Chios for the major blocks are noted alona with the number 
required for the function in oarenthesis. Table I lists tne 
total circuits which are reauirea to imclement th^ COPuL 
machine. The looic diaarams and detailea descriotion of 
these circuits are in Reference 2. 

Thr^e bloocs ar^ not discussed in detail: Direct 
N^emory Access lOMA), Interrupt Control Unit (ICU)/ and the 
Sync and Control Logic. Suqaested architecture ^av be found 
in Reference 2 and a listina of the required circuits is in- 
cluded in Taole 1. 

One family of blocks detailed in the machine di- 
aqram are the bus tranceivers which interface between the 
various blocks and the data ana address busses. These may be 
a combination of Am290o ana km 07 or Am26bl0 chios. 
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Table 1 . L 


SI Chips 


reauirea for the COBOL Calculator 


CHIP 


NU'^bEK 


DISCRIPTION 


am2901 


a 


biDolar ^-bit i c rop roc es so r slice 


Am2902 


1 


look ahead carry 


Am2905/b/7 


12 


cuad bus transceiver 


Am2909 


T 


Tiicroproaram seauencer 


Am291b 


1 4 


four Dit register 


Am?97 6 1 


59 


?56 word X 4 oit PRQN^ 


AfpO 1 ilO 


123 


40^6 word X 1 hit static P//^ PAjV 


Am25L307 


1 


6 bit reoister 


Am25LS15l 


1 


^ inrut multiplexer 


Afn25LS t o 1 


1 


binary fiexaaecimal counter 


InterruDt Control Unit 


• 


Am291 5 


1 


rriority interruot exoancer 


Am?91 a 


2 


vectored prioritv interrupt encode 


Am29705 


1 


lb word X 4 hit two"Oort 


Direct •'^efT'ory 


Access 




Am25LSlb1 


fl 


binary hexaoecimal counters 


Am25L3?59 1 


2 


octal buffer 


Sync and Enaol 


e Logic 




Am29750 


1 


3^ word X ^ hit PK0^'’ 


Am?5LSl 57 


1 


? incut multiolexer 


Afn555 


1 


t 1 r 


Am74LSl 12 


1 


dual f 1 i o- f 1 OP 


Am7aLS 1 29 


1 


clock 
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A^DASM / 80 



The next step in the develooment of the CObOL cal- 
culator is to convert tne alaorith^s to nr>icrocoae us inn the 
'•nr>eta-assembler” AjVjDASM/80, AMDAS^V^O is a rnicrcprooram as- 
sembler which operates on the INTEL INTELLEC MDS-OOS system 
under the ISIS-TI operating system. A me t a - a s s end 1 e n differs 
from a conventional assembler in that the user must aefine 
not only labels ana symbols but also wora lenaths and for- 
mats. Veny little information is predefined in a meta- 
assembler^ allowing the user a areat flexibility in matchina 
microorograms to a haraware confiauration. AMDAS^VdO is suf- 
ficiently general ana powerful to be used for nearly anv 
microprogrammaple m^cnine. However^ it was aesigned espe- 
cially for the Am2900 family. 

The assembler ocerates in two phases: the Defini- 
tion phase and the Assemoly ohase. The Definition phase/ 
which is executed first/ establishes the tables to mao each 
user defined format and constant names to ^he corresoonair'iq 
bit patterns. The lencth of each microinstruction wore can 
oe aefinea ^rom 1 to 12^ bits. A m i c r o i n s t r uc t i on word may 
consist of one format/ or several overlapoing formats. A 
format defines th<» fields of a microinstruction and their 
usaoe. Fields may contain specified numeric oit patterns: 
either hexidecimal/ oecimal/ octal/ or binary. The field may 
also contain a variaple field to be filled-in aurina execu- 
tion, or a ” don’t care** field to be ionoreO/ which is usu- 
ally a filler between other fields. The '* don’t care** fields 
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are used when formats are overlapoed. That is/ 



formats can 



be overlaopea if tne cefined fields of one format correspond 
to ’’don't care” fielas of the other format. 

The Assembly nhase uses the output ohase^ and 
operates similar to a more conventional asse^’oler. This 
phase reads a symbolic nrogra'^z performs thp common assem- 
bler functions and croduces a binary outputs listinqs# and 
tables^ which are retained for execution or po s t -o roc e s s i ng • 

]he Pos t -orccess 1 ng phase uses tne Assembly chase 
outout to create nacer taoes suitaole for use in programmina 
PRO'^’s. The user may cefine t^e organization of the PPO^ ma- 
trix and then crpate a tape for any carticular row or 
column. This will allow the user to organize the micropro- 
gram memory as desirpo. Purther/ it is relatively easy to 
change a carticular PRO^ by creatine a new tapp for tne 
aesired column or row. 

The advantaces of a mpt a-assemo ] er aporoacn/ such 
as A^^DASM/^0/ are flexibility and ease of use. The user mav 
aefine multiple formats with overlapping fields and link 
meaningful mneu monies with various bit Patterns. Thus^ tne 
assembler creates the bit strinas for m i c r o i n s t r uc t i on s . The 
user may also writp programs using strinos of I’s and 0*s ^ 
with a short Definition phase. 
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TIMING ANALYSIS 



/ Practicalitv of tHe Cobol calculator decenas par- 
tially upon the time which is required to e^^ecute a proaram. 
The actual timing of the machine oerformance will occur when 
it is run in microcoae on the Intellec ’^DS-OOS system. How- 
ever^ several important factors can be assessed by usina 
manual methods and estimating the required cycles ana number 
of references to ^anpcm Access *^e^ory (PAM), 

Table ^ con^'ains a list of the seauential process- 
ing steps of the aqo verb. The si7e of tne da^-a and pro- 
cedure divisions are assumed ^ o be ?000 bytes each^ which 
allows storage of a reasonably complex program. A HAM access 
time of 300 nanoseconcs was assumed for these calculations^ 
and any process inn whic^ could be done simultaneously ^ i th 



the WAM access 


was not included. 


The time of 


) .336 


m i 1 - 


li seconds for 


tf^e fetCHf aod , 


ana 


store is duite 


long. 


This 


value includes 


il050 access '•0 


memoryf most of 


w n i c h 


were 



used in movina data division bytes through the wor<inq area. 
The time used in moving t^ese oytes represents l.PlS mil- 
liseconds or about PI percent of the total execution time. 

Another example of a large amount of ti^e spent 
manipulatina data is the initialization of the proaram in 
memory. The interpreter^ COIM^ must find tne top of tne 
procedure division anc th^^n locate the too of the data divi- 
sion, For the simple example proaram in Aooenoix A^ tne in- 
itialization requires ^00 PAM accesses ano 1000 machine cy- 
cles, Execution of this oroqram will require about <£^00 
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/ 

accesses to memory anc 5500 macHine cycles. Thus/ execution 
time is about t.05 milliseconds/ of which 71 percent is ab- 
sorbed in memory access. Aoain this is quite Iona for a sim- 
ple p roo ram • 





Ir 


must 


be remembered 


that these 


estimates 


are 


very 


rouah . 


Fstimaticn errors 


will be found 


in count i no 


the 


number 


of machine 


cycles which 


CO r respond t o 


a c i V e n line 


0 f 



assembly code. 

using these estimates as a rough ouiae/ it is evi- 
dent that the reference time to Random Access ^'^emory is a 
major factor in the sneed of Program execution. Due to this 
problem# two oossiole changes to anv future design snoulc be 
considered. First/ Random Access ^^emory with an access time 
of under 200 nanoseconds should used. Memory with this 

access speed is available# althouah it is more expensive 
than the slower ^A^^. This change could improve execution 
time by one-fourth. Tne second suqaestion is to develop a 
pipeline technicue for bytes access# much like the techninue 
used in the sequencer. This could he done in microcodef it 
would consist of loaoina the next sequential byte d urine the 
processino of a given byte. ?inc^ a majority of 
accesses occur during a linear search of the user's prooram# 
this simple technique could cut the execution time oy 25 
percent . 



5 1 



TABLE ? 



SAiViPLE FOR AN ADD vSTATEMENT 



TlMt 

4 10ns 
bBOus 

355ns 

300ns 

660us 

I . 2us 
4 . 5us 

3u s 



1 .33b 



ACTION 

man to*<en numoer to symool table entry 
search data civision for a variable nrintname 
(assuming 1000 character compares) 
fetcH next token number--does it ecual *T0’? 
fetch next token number 

search data ci vision for second variable printname 
(assuming 1000 character compares) 
align decimal Doinfs--assume two zeros 
access aritnmetic tables--assume loncest ooerana 
nas 10 ciaits * .45 us/a i git 

transfer data from buffer to memory a cpl 



ms/aad 
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^^FCOM^^hNO&T IONS 



This thesis represents only the first half of the 
implementation of a COBOL calculator. The next phase in- 
cludes the final machine desian and conversion of the 
lanauage program 'modules to microcode. ANiDAS^VSO would be an 
aoprooriate lanauage. 

The following are items which can be considered if 
an expansion of the COBOL calculator is desirea. Each of 
these items was considered during the initial aesign of the 
algorithms; all should be relatively straiqhtforwara to im- 
plement. 

First/ the arithmetic packaae could oe exoanoec to 
handle exponentials. As oresentlv written, the routines are 
inaependent of decimal point position once the location is 
known. A routine to detect and manipulate the exponents can 
be added to Doth the multiply and diviae routines. For the 
add/suDtract routine, the section which aliens the decimal 
points must oe exoana^d to adiust the exponential values. 

Second, expansion to al low for both upoer and 
lower case ASCII characters has some value since it would 
improve readibility. The editor, COED, will presently allow 
upper case characters anywhere in the Identification and En- 
vironment divisions. If the tokan routine is modified to 
detect upper case letters when looking for a symbol name in 
the Data division, all user defined symbols can contain ei- 
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tHer upoer or lower case characters.. In the Procedure divi- 
sion# however# all reserved words must contain only lower 
case characters because thev are entered in the symbol table 
in lower case. This can be easily cnanaed to upper case# or 
a mixture of the two# by chancing the symbol table entries. 
However# it may not be not practical to allow the user any 
mixture of upcer and lower case characters for the reserved 
words# due to the limiteo size of the symbol table. 

A third ite^ of expansion could be a cnaracter 
editing ability. This coula be accomplished relatively easi- 
ly since the line to be modified is in the line buffer, A 
significant numo^r of revisions to the moaify and incut 
routines would be required# however# and it «as not imple- 
mented at this time. 

The fourth area of improvement is the inclusion of 
a debuq facility. This is probably the most important area 
of improvement. The deoug routine ^oulc have the value of 
all declared variables available since they remain #^ith the 
program until reinitialized. Thus if a fatal error occurs 
during the i n t e ro r e t a t i on Phase/ the error routine needs to 
insure that the subroutine stac^ and the program counter are 
saved. The debuoger would use the various search# match# and 
find routines which have already been implemented to deter- 
mine the value of any desireg variable. A restart coula oe 
easily accomolished ov nassinn the interpreter's initializa- 
tion routine. 

In conclusion# tn^^ first nhase is complete. In 



the course of this thesis 



several important concepts were 



implementea. It- was shown that a COBOL Calculator usina 



simote algorithms tc 


interpret a 


bd s i c 


ve r s i 


on of 


COBOL 


i s 


technical ly 


feasible. 


T t was 


also 


shown 


that 


there 


are some 


unresol ved 


quest i ons 


as to 


the 


ooe rat 


i ona 1 


f eas 1 


b 1 1 i t y 


0 f 



this de s i an . 
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APPENDIX A 



SAMPLE terminal SESSION 



COEO:Cohol Editor. Vorsion 1.1 



*A0000 


I den ♦* 


ification Division. 




*A00 1 0 


Proaram name. ♦'est. 




*A 0 O 2 O 


Author. 








Coni e Y • 




*R 0000 


Environment Division. 




*ROO 1 0 


Ccnfiquration Section. 








Source computer. 








POP-1 1 /50. 




*B0015 


This 


line will be aeleteo later. 


*P00 15 


d 






*coooo 


Data 


Division. 




*CU0 1 0 


File 


vS e c t i 0 n . 




*coo^o 


f c 


f i 1 e • i n 








oata record is emo-i 


n . 


*C0050 


0 1 


emp • i n . 




*cuoao 




03 name-in pic 


x( 1 0 ) . 


*cuoso 




03 hrs-in pic 




*C 00 o 0 




03 rat^-in pic 


090 .Q9 . 


*C0070 


f c 


f i layout 








data recora is e mo-cut. 


*C0080 


0 1 


emp-ou t • 




*C0090 




03 namp-ou t p i c 


X ( 10 ) . 


*C0 1 00 




03 f i 1 1 er pic 


X ( 1 0) . 


* C 0 1 1 0 




03 pay Die 


° .09 . 


*C0 1 1 0 


m 






*CU t 1 0 




03 pay pic 


090 . 09 . 


*C 0 120 




(J 3 t i 1 1 e r pic 


X ( 1 0 ) . 


*50130 




U3 total pic 


S9 , 999.99 


*00000 


Prccecure Division. 




*000 1 0 


0 1 0 - 


main. 




*DO020 


read emo-in. 




*00030 


i f 


name-in numeric oo 


020 -enatest 


*00035 


cerform 03^-orocess. 




*00040 


0^0 


-end t PS ^ . 




*00045 


stop. 




*00050 


030- 


process. 




*00055 


move neme-in to name*out. 


*00060 


"‘ultioly nrs-in hy rate 


-in. 


*00065 


move rAt^=‘*in to oav. 




*00070 


aod 


nay ^o total. 




*00080 


write e mp -o u t . 




*00090 


030- 


e^i^*. exit. 




* A0050 








*50020 








*C0 1 40 








* A00^J5 


remarks. ^nis is a test 


p r oo ram to 



3b 



calculate t^e pay an e^nplovee 
based on his pay rate ana the 
hours worked. 

*00005 * this is an example comment/ 

which can be inserted anywhere, 

*AOOOO/E 



AOOOO 


I 0 e p t i f i C a t i 0 n D i v i 


• 

c 

o 


AOOl 0 


Proaram name, test. 


AOOPO 


Author, 






Con 1 e V , 




A00P5 


remarks. This is a 


test o rog r am t o 




calculate the pay 


of an emp 1 ovee 




basea on his oay 


rate ana the 




hcu r s worked. 




A0030 






dOoOO 


Environment Division, 


8001 0 


Con'^iauration Section, 




Source computer. 




PDP-l 1/5U 


. 


B0020 






COOOO 


Data Division, 




COO 1 0 


File Section. 




C00?0 


f C f i 1 e- i n 






cJata record is* emc-in. 


C0030 


U 1 emp - 1 n . 




COOOO 


03 name-in 


pic X ( 1 0 ) . 


C0050 


U 3 h r s - 1 n 


pic °9 . 


C0060 


u3 rate-in 


pic °90.°9. 


C0070 


fc file-out' 






aa t a r ec o ra i 


s emp-ou t- . 


COOPO 


01 e^o-out. 




COOOO 


0 3 name-ou t 


pic X ( 1 0 ) . 


CO 1 00 


0 3 f i 1 1 e r 


pic X ( 1 0 ) . 


CO 1 1 0 


0 3 pay 


pic ‘^ 90 . < 59 , 


COlPO 


0 3 f i I 1 e r 


pic x(l0). 


C0130 


03 total 


pic $9,9<59.9Q 


coiao 






00000 


Procedure Division. 




D0005 


♦ this is an ex amo 1 


e c t , 




which can be inserted anywhere. 


000 1 0 


0 1 0 -ma 1 n . 




D00?0 


reao emp- i n . 




00030 


ifs name-in numeric go 020-endtest 


DO035 


Perform 030-nroc 


ess , 


uOO^O 


OPO-endt es t , 




DOOaS 


stop. 




oooso 


030 -process. 




00055 


move name -in to 


name-ou t , 


0 0 0 6 0 


multioly nrs-in 


by rate-in. 


00065 


move rate- in to 


pay . 


0007U 


add oav to total 


• 


OOOPO 


write emo-out. 




O00<30 


030-tf»xit, exit. 




tOF 






*au i t 
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APPENDIX b 



GRA^^MAR rules in RNF FOP VICRO-CUPOL 



1 <program> <ia-div> <e-div> <o-aiv> <p-div> 

? <id-oiv> IDENTIFICATION DIVISION. PROGRAiV-iD. 

<cornnrent> . <autH> <date> <sec> 

3 <auth> AUTHOR . <co^fnent> . 

^ 1 <err>p f y > 

5 <date> DATE-i^iPITTEN . <co'^ment> . 

6 I < en^p t y> 

T <sec> :t= SECURITY . <comrrent> . 

R I <emo t v> 

R <Connment'> <inDuf> 

10 ; <co<^me^^> <inouf> 

11 <e-div> ENVIRONMENT DIVISION . CONFIGURATION SECTION. 

<scr-cbj> <i*o> 

12 <src-oDj> SOUPCE-COMPUTER . <commenf> <rtebun> . 

OPJECT-CUMPUIFR » <con^nn^nt> . 

13 <debuq> DEBUGGING NiDDE 

■^8 



! <emotv> 



la 

IS <i-o> ::= INPUT-OUTPUT SECTION . FILE-CONTROL . 

< H 1 e-c c n t ro 1 - H s t > <ic> 

'l 6 I <pmo t v> 

17 <fi1e-control-list> <^ile-control-entry> 

IF ! <Tile-control“list> <file-contro1-entry> 

<file~controI-entry> SELECT <ia> <at'Cribute-list> . 

<?0 <attriDute-1ist> ::= <one aftrib> 

21 ! <a^t^^hute“list><oneatt^lD> 

22 <ona-att-rib> ::= ORGAN IZATION <orn-ryoe> 

23 ! ACCESS <acc-^yoe> <rp]ative> 

2a 1 ASSIGN <inou»-> 

25 <orq-tyoe> SECUENTIAL 

26 I RELATIVE 

fhe relative attribute is saved for production 19. 

27 <acc-tyre> SECUFNTIAL 

This is the default. 

2« ! PAfOOM 

The rando'r access mode needs to b<» saved for oroauc~ 
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29 

30 

31 

32 

33 

3i) 

3S 

36 

37 

36 

3° 

qO 

a 1 

a? 

43 

44 

45 

46 



t i o n 19 



<relative> Rtl-ATIVt <id> 



I <e!T’pt y > 



<ic> JJ- I-0-C0MI90L . <same-li<;t> 



I <ef"o t y > 



<same"list> : <saf>'e”ele'T'ent> 



! <sa''’e-lis*'> <same”e1e'^ent> 



< safne”e 1 ef^en t > 'l- SA'^E < i C-S <■ r i na> 



<ia-strinc> ::= <ia> 



I <ia~strina> <io> 



<d-civ> ::= DATA DIVIvSION . <fj1e-sec'’ion> <wor'<> <lin<> 



<file~section> FILE SFCTION . <file-Mst> 



I <e'^D ^ y > 



<file-list’> j;= <'*ile~elef"ent> 



I <Tile-Hst-> < T i 1 e~e 1 a'l’en t > 



<files> FD <ic> < f i 1 e~c nn t ro 1 > . < rec o rd~desc r i n t i on > 



<file"control> t;~ <file-list> 



! < eT’D t y > 

<Tile~)ist> <file-ele"ent> 
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47 

48 

4P 

50 

51 

52 

53 

54 

55 

56 

57 

58 

5'’ 

bO 

t) 1 

o2 



! <f11e”list> < f i 1 e~e 1 emen t > 



<file~elefT'ent> t:= BLDC'<' <integer> PECUBUS 

! PECOPD <rec”count'> 

The record lengt-h can be saved for corrparison v»ith the 
calculated length from the oicture clauses. 



! LABEL RECQPDS STA^nAPU 
! LAPEL PECOPOS OMI TTEO 
! VALUE OF <ia-strino> 



<rec~count> <inteoer> 

! <intener> TO <integer> 

<worK> WQPKlfjG - storage SECTIOM . <record-descriotion> 

I < emo t y > 

<link> LIMKAGF SECTTOO . <record-descrintion> 

! <emp t y > 

< r ec o r o”de sc r i p t i c n > < 1 eve 1 -en t ry > 

! < r ec o r d-de s c r i c t i on> <1evel-entr 

< 1 e V e 1 -en t r y > :;= <intener> <data-id> <redefines> 

<data-tvpe> . 
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<data-id> ; 



< i o> 



! FTLLtP 



b3 

6^ <redefines> REDEFINES <ia> 

The reaefines ootion oives new attributes to 
ousJy defined r^^cord area* 
bS 1 <emotv> 

66 <data-tyoe> ::= <nroD-]ist> 

6 7 i < e mo t y > 

oF <Drop-list> :t- <cat* a-e 1 ement > 

oP 1 <croP-]ist> <data-e1ement> 

70 <da t a -e 1 emen t > PIC <irput> 

The <inouf> at tnis point is th<> character s 

aefines the record fie)a, 

71 ! USAGE CO^P 

The fie^a is defined to b<= a oaci<ea numeric 

72 ! ilSAGF DISPLAY 

The DTSPLAY for'^at is t^^e defaultf and thus 
action occurs. 

n ! SIGN LEADING <serarate> 

This nroouc^ion indicates the presence of a 

a2 



a p r e V 1 - 



tring that 



field. 



no special 



sign in a 



numeric field. The siqn will he in a leadina oosi- 
tion. If the <senarafe> indicator is true/ tnen the 



length will be cne longer than the oicture clauser and 
the tvoe will be chanaed. 



7^ I SIGNTPAILING<separate> 

The same information reouir^^d ov oroduction 75 must oe 
recorded/ but in tnis case the si an is trailing rather 
than leadina. 
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76 



77 



I OCCURS <inteaer> 

The tvpe »^ust oe set to indicate multiple occurrences. 

I S T N C < d i r e c t i o n > 

1 VALUE <literal> 

The fiela being oetinea will he assianea an initial 
value determined by the value of the liberal- 
<direction> LEFT 



7R i KIGHT 

tiO I <emo t v> 

61 <senarate> t:= SEPARATE 
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82 

63 

BiJ 

8S 

86 

67 

8P 

8<? 

90 

91 

92 

93 

9U 

9S 

96 

97 

9« 



I <efrpt’ y > 



<)iteral> <inout> 

! < 1 i t > 

This literal is a quoted string. 



: 7ER0 
: SPACE 
! QUOfE 

<inteoer> <inout> 

<ia> <input> 

<D-div> :;= PPUCECURp DIVISION <usinq> 
<oroc-Doav> END . 

<usina> USl^'G <io~strina> 



1 < t V > 



<ia”Strino> ::= <iq> 



i <io-strino> <id> 



<proc -Dodv> 



<oaraqraoh> 



<c a r ao r ap h > 



<croc~Doav> <raraaraph> 



<ia> . < s en t enc e - 1 1 s t > 



<id> SECIIOM 



99 <sentence-)ist> 



<sen t ence> 



100 1 <sentence-list> <sentence> • 

101 <sentence> <imoerative> 

102 I <cond j t i ona 1 > 

103 ! EiMTtP <id> <opt-ia> 

This construct' is not ir^plenentea. FMtP a 

statements from another lancuaqe to insertea in 
source code. 

104 < 1 r a t i V e > ACLEPT <suDio> 

105 I<arithme^ic> 

lOo ! CALL <lit> <usina> 

This is not imolementeo. 



10/ 


! CLOSE <id> 




108 


! <filp-act> 




109 


I DISPLAY <lit/id> <opt-H 


t / i a > 


1 1 0 


I EXIT <oroqram-io> 




1 1 1 


! GO <ia> 




1 18 


I GO <id-Strinc> DEPE^<DI^iG 


< i d> 


1 13 


I ^uVb <lit-ia> TO <5ubid> 
45 





1 ) O w S 



the 



1 1 a 
115 

1 1 b 

1 1 7 
1 1 d 
I 19 

1^0 

121 

122 

123 

129 

125 

12o 

127 

I2d 

129 



I CPEN <t-yoe-action> <ia> 

! FtRFOR^^ <id> <thru> <finish> 

! < read- i d> 

! STOP <rerniinate> 

<conditional> <3rithfi'et:ic> <size-error> <imperative> 

1 <file-act> <invalid> <i’nperative> 

A 8Sf operator is outcut ro comolete the branch fro'n 
produc t i on 69 . 

! IF <condition> <action> LLSF <iT'oerative> 

\ <read-id> <special> <imoerative> 
<Arithmetic> ADD <l/ia> <oot-l/id> TO <suoia> <rouna> 

1 niVIDE <l/ic)> Ii'^iTO <subid> <round> 

I ^^ULTIPLY <l/ia> BY <subid> <round> 

! SUPIPACT <1/ia> <oot-l/id> FPO^^ 

<subid> <round> 

<file-act> DELETE <id> 

I Rtl^KTTE <id> 

I ''•‘kITF <ir<> <specia1-act> 

<conditjcn> ::= <)it/id> <not> <cono-tvpe> 



I 



I 

i 



1 30 <cond-t yoe> 



NUMERIC 



131 

1 

135 

1 3 a 
135 
1 3o 
157 
1 58 
1 39 

1 ao 

lai 
14 ^ 
1 ai 
1 aa 
las 
lab 
la? 



I ALPHARtTIC 
! <compare> <H*-/ia> 
<no t > : : = NOT 



NEG 



I < emo t V > 



<COfnoare> ’l- CRPATEP 
: LESS 

; equal 



<ROUMO> RUUNOEQ 



I <«mD t V > 



< t e r'T ' 1 n a t e > <literal> 



1 RUN 



<soecial> ;:= <invalia> 



: END 



<ODt-id> <subid> 



I <e'^p f y > 



<dCtion> ::= < i mce r a t- i ve> 



: NEXT SENTENCE 



1 as < t H ru> 



THRU <id> 



ia9 

150 

151 

152 

153 
15a 
155 
15b 

157 

158 

159 

160 
16 1 
162 
163 
16 a 
165 
16b 



1 <e'Tipty> 

<finish> <l/id> TIM£S 

I UNTIL <condition> 

I <efnp t y > 

<inva)iO> INVALiO 

<size"error> SIZE ERROR 

<SoeCial~aCt> Z l- <wHen> ADVANCING <how-'^any> 
I <emot v> 

<when> liEKCHE 

!. AFTE» 

<now-manv>:;= <integer> 

; PAGE 

<typf=»-ac*’ion> Ii'jPUT 

I OUTPUT 
! I-U 

<Suoio> <subscriot> 

; <ia> 

<ioteger> <ioput^ 

as 



i 



167 


<id> ;:= <inout> 


1 68 


<l/id> ll- <inout> 


169 


! <suD*;crint> 


170 


: ZERO 


171 


<suDScrict^ !:= < 1 d> ( <inout> ) 


178. 


<oot“l/id> ;:= <1/ia> 


173 


I <Q'ro ^ y > 


17a 


<nn-1)i:> ::= <li^> 


1 73 


! SPiCE 


17o 


! QUOiE 


177 


<literal> ::= <nn-]ir> 


178 


! < i nou t > 


179 


: ZEPr 


180 


< 1 i t / i d> : : = < 1 / i a> 


181 


1 < n n - 1 i f > 



1^2 <oDt'"lit/id> 

IB3 !<ennpty> 

184 < p r on r am - i d > ::= <id> 

185 I<e"’Dty> 

n9 



A 



180 



< reari 



R £ * D < i c > 



- i 0> 



■?U 



J 



APPENHIX C 



COFD UvSER’S maNJUAL 



This nr^anual aescribes t^e 
editor# COED# ^hich is desianed to 
system at NPS* This eoitor is the 
steo for writinc a COPQL orogram to 
COBOL internreter v^hich also run on 
The following items aoply 



facilities of the COPQL 
run on the UNIX operatino 
first/ and mandatoryf 
be executed ov COTN# the 
UMIX at I'^PS. 

to orograms written us- 



ing COED : 



1) Lower case ASCII cnaracters are usea excect for line 
numbers# as noted below. 

d) Each COBOL sentence must nave a unique line numoer# 
which is entered by the user usina the formats noted below. ^ 
3) Periods# blanks# tabs# and newline characters mav oe 
freely inserted in a line to improve readibility. A period 
followed by a newline character# however, is treated as an 
end of line indicator. 

The COBOL sentence must be Less than characters. 

5) Each COBOL sentence must ^nd with a period ana newline 
character No blanks are allowed between these 

characters. 

o) Lines may be entered in any oraer? th<=* editor places 

them in ascending numeric oraer. 

7) Four line numbers must be nresent with the follow! no 
format : 



AOOOO identification division. 



FI 



i 



bOOOO environment division 



COOOO data civi?^ion. 

DOOOO procecure aivision. 

The following items acpiy to line numbers: 

1) A line number consists of one of ^ he ucper case ASCII 
characters followed ov four digits. 

The ASCII alphabetic characters have special meanings 
within the prooram. Tne cnaracter indicates the COBOL divi- 
sion into which the line will be inserted, 

AVXXX represents the T T 1 F I C A T I ON DIVISTOM 
BVXXX r^^presents the FiNjVlPQMMFiM’t DIVISION 
CXXXX rppresents the DATA DIVISION 
DXXXX r'=»presents ^he PROCEDURE DIVISION 
3) The four dicits indicate tne position of tne line within 
the division. 

^*«hen the editor is called will respond with an 
asterisk/ it is then readv to accept a new line. Ihis 

asterisk must always be followed by a line numper. 



ELEMENT : 



ADD A NE/y LINF TO THE PPQGRAM 



-FORMAT : 



<line numFer> <fOFOL sentence> .(CR) 

DESCRIPTION: 

The eoitor will find t croper location 

corresponding to ^ line number. The line 

number and the COBOL sentence uo to the EOL in- 
dicator are entered into the memory area. If 
the sentence is in the Procedure division it is 
converted to to*<en nymoers before being enterea. 
Otherwise/ the ASCII characters arp inserted 
directly. 



EVA^^PLES : 

AOOlO orogram-id.(CR) example. 
COO^O 01 data*in oic x(^O).rCP) 
D1900 add x to y.(CH) 



I 



I 

i 






ELEMENT 



ADD A BLANK LINE 



FORMAT : 



<line numher>(’CR) 

<lioe numher> .(CP) 

DFSCRIPTION: 

A Diank line is inserted in the prooram. This is 
useful to inorove read i Dili tv and nav be used 
freely. No*’e that tne first ootion .^ill result 
in a cleaner orinting. 

examples : 

AO 1 00 . (CR ) 

COOyO(CR) 



Sa 



J 



element : 



COMMENT 



FORMAT : 



<line numbep> * <ASCIT stri'^a> .(CR) 

OeSCRTPT ION: 

If the line number is followed by a sinole blank 



and 


then an ' 


* * r 


the 


interpret 


er will lanore 


t n e 


rest 


of the 1 


1 ne 


UD 


to the oe r i oa-ne w 1 1 ne . 


Com- 


ments may De 


free 


1y 


1 n s e r t ed i 


n any division 


and 


are 


always storeo 


as 


an ASCII 


s t r i n a . 





EXAMPLES; 

00100 * This is a samnle comment. It may be a 
maximum of ?56 characters. 



■^5 



ELhMtNT 



DELETE A LIME 



FORMAT ; 



<1ine numher> afCP) 

DESCRIPTION: 

The line is foura i>^ the orcqra'T' a^ea and 
characters or tok<»n numbers are deleted, 
that no blanks are allowed between the 
•d’ and tne ' (CR) ' , 

examples : 

dO^OO d(CP) 






al 1 
N o t e 



ELLMENT 



MODIFY AN OLD LINE 



format : 



<line numher> nn(CR) 

DESCRIPTION: 

IHe e'iitor will print tHe line as written^ then 
print t^e line number and wait for instructions. 
The 'user has tnree options: 

1) type <CObOL sentence> to renlace trip cresent 
sentence ending with a 



2) 


t y o<=* 


d (CR ■) 


to a^l^te thp 


line# 




i) 


type 


fCP) 


to leave rnp li 


ne as 


w r i t t e n . 


I'JO t 


e (■ h a t 


no 


charactpr eait 


i no 


c a c a b i 1 i tv 



a V a i 1 ao 1 e . 

EXAMPLES: 

I 

^Dooao m(CR) 

D00<^0 ado X to v . 

★DOO^O acd z to y.CCk) 



ELEMENT : 



PRINT 

FORMAT; 

<line number>,<line number> (CR) 

<1ine nufnber>/E (CR) 

<Hne nunnber># TCR) 

DESCRIPTION: 

The first for^'a^ causes alt lin^s to be nrinted 
startina at t^^e first line nu^iber ana continuina 
until tHe s^conc line number has been printed. 
The second format causes all lines be nrinted 
startinn at the first’ line ano continuina until 
the end of file inoicatior. 

The thira format causes that line number only to 
be printed. 

EXAMPLES: 

AOOl O.bOoOO (CR) 

A 0000, E (CR) 



AOOOO, fCR) 



ELE.VEMT 



QUIT EDITOR 



FORMAT ; 



q(CR) 
qu 1 t ( CR I 

DFSCRIPTiON; 



Edit is terrninated. The proqranf> 


is written 


into 


1 ow memo rv 


9 closing uo tne work 


soac e . The 


sym- 


dot t ac 1 e 


is written directly 


f o 1 lowing 


t h e 


procram's 


E(JF, and any deleted 


entries ar^ 


set 


to 'NUL'. 









^9 



appendix d 



COIN USER’S manual 



This manual describes the subset of MICHP-COBOL 
currently accepted by the COBOL interpreter^ COIN. The fol- 
low ina conventions are used in explaining the formats: 

1) Elements enclosed in broken braces < > ar^ complete en- 
tities and are described elsewhere in the manual. 
i) Elements enclosea in stacks of braces { } are choices^ 
one of which must pe chosen. 

3) Elements enclosed in brackets t J are ootional. 

<4 ) All ele"'ents in capital l^t^ers are reserved words and 
must be spelled exactly so that th^=»y can De n^aopea into the 
correct to<en numbers. a hen usinc CGFl) and COIN however# 
the entire COBOL proaram is entered in lower case charac- 
t e r s . 

User defined variables and naraaraph names are in- 
ai Gated as lower case. These names are restric^red tc 16 
characters in lenath. Variable names must beoin with an al- 
phabetic character and must be dnclared in the Data divi- 
sion. ParaGraph names must begin with a numeric character. 



i 
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ELEMENT 



IDENTTFICATIUN PIViSION Forrrat 



FOR^^AT; 



identtficatiom division. 

PRUGRAM-IO. <con"ment>. 

[AUTHOR. <comment>.l 
IDATE-y^PITTEN. <comn^ent>*l 
[SECURITY . <co^ment'> ,] 

DESCRIPTION: 

Ibis division orovides in'^ormation for 
identification for tn^ reaoer. 

EXAMPLES: 

identification civision. 
prooram-id. samole. 



n rog ran^ 



I 



« 



ELtVENl 



ENVIRONMENT OIVISIUM Format 



format : 



environment dtvtston, 
configuration section. 

[SOURCE-COMPUTER. <commenr>.) 

[OdJEC T-COMPUTEP , <com'"en t > . ) 

[INPUT-OUTPUT 3FCTI0N. 

FILE-CONTROL . 

<fi 1e~contro)“ertry>.l 

DESCRIPTION: 

At crasentf tHis information is iqnored. 
the COBOL calculator is noerationalf if wi1 
needed for SDecifvinq input and outnuf files 



Once 
1 oe 
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I 

i 

I 

\ 

i 



^4 



ELE^^ENf : 



DATA DIVISION Fcr-T'at 
FOKN'AT : 

DATA DIVISION. 

[FILE SFCTION, 

[FD filename 

[ < r ec o rd -de sc r i p t i on -e n t r V J ...1 ... 

description: 

This section describes bow the data is struc- 
tured. 
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ELEMENT 



* < c ommen t > 



FORMAT : 



* <any String ASFIT characters> 

DESCRIPTION: 

If a space and an directly follow* the line 

number, all cRaractArs until tne '.(CP)' are iq- 
norea py the interpreter. 

EXAt^PLES : 

DOOlO * this is a samnle comment. (CP) 



6A 



ELE^'ENT 



<data-aescn'pf icn-ent ry> format 



FOK'^AT : 



level-number {cata-name) . 

TFTLLEP} 

C®1C character-string 

(VALUE cha rac I" er-s t r i nqi ] 

OFSCRIPT ion: 

Ihis statement- cescribes that soecific 
bates of the data. The VALUE clause is 



initial i z e 


a V a r 


iable to a specific 


t p roa r am 


Peg 1 


ns <*xecution. 


EXAMPLES: 






0 1 da t a - i n • 






0 2 part- 


O 1 c 


X (=^) . 


02 num 


c i c 


<39 value U . 



a t t r i - 
u sea to 
u e when 



hS 




I 



ELEMENT : 



PROCEDURE OTVISTOM Format 



format : 



PROCEDURE DIVISION. 

[oaraaraph-na'T'e . J <sentence> f <sentence> . . . 1 ... 



DESCRIPTION: 



This division contains all the executable COBOL 
statements. 



6t) 



ELEMENT 



<sen t PHc e> 



FORMAT: 



<i moerat i ve-sfate^ent 



<conai t ion-statemenf> 



ELEMENT 



<i iDDerat i ve-statenent ^ 

FORMAT : 

ACCEPT 

ADO 

CLOSE 

display 

DIVIDE 

GO 

MOVE 

MULTIPLY 

OPEN 

PERFORM 

READ 

STOP 

irjRITE 

DESCRIPTION: 

ACCEPT/ display, open, and CLOSE are currentlv 
icnored hy *■ hf‘ interpreter because they aepend 



on devices external to the machine 



wT,.': 




ELEMENT 



<condi t ional •statement> 



format : 

IF 







I 



I 



element 



ADO 

FORMAT : 

ADD {identiHer-lT TO identifier-? 

{1 i t e r a 1 f 

DESCRIPTION: ' 

This instruction adds identifier-l/literal to 
identifier-? ana storos the result in identif” 
i e r -2 . 

EXAMPLES: 

add 10 to total. 
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I 



* -"•* 



ELEMENT 



DIVIDE 
format : 

DIVIDE {identifier-1} I'-) TO {identifier-2} 
{literal} 

OFSCRIPTION: 

This instructicn divides i den t i f i e r- 1 / 1 
into identifier-2 and stores ♦'hp resul 
identi fi er-2. 

LVAMPLES: 

divide F into total. 



7 1 



i t e r a 1 
t into 



ELEMENT 



GO 

format : 

GO pa r aa r ap h -nair e 
DESCRIPTION: 

The GO instruction causes an uncond 
DPanch to the scecifieo oaraqraoh name. 

EXAMPLES ; 

go 1 0-oeg i o . 



i t i on a 1 



12 



ELEMENT 



IF 

FORMAT : 

IF <conOitioo> Ti'PDerative-l} [ELSE imrera- 
t i V e - ? 1 

{i'mFXT> 

DESCRIPTION : 



If the condition evaluates true either imoera” 
tive-1 or the next sentence in the orocram is 
executed. If the condition is false» either im- 
perative-? is executed/ or the n»xt sentence is 
skipped. 

EXAMPLES: 

if a Greater b co lO-beain else go Su-end. 
if X numeric next. 



73 



ELtMENT : 



MOVE 



FORMAT : 



MOVE {identifier-1} 10 iaentifier-2 
{literal} 

DESCRIPTION; 

Either rhe' value stored in idenfifier-l cr 
literal value is stored into identifier-d. 

EXAMPLES : 

move 10 to subtotal, 
move sub-total to total. 



7 a 



the 



ELEMENT : 



multiply 

FORMAT : 

MULTIPLY {identifier-1} BY identifier-2 
{literal} 

DESCRIPTION: 

The multiolv instruction causes identifier-1 to 
be multiolied hy identifier-P. The result must 
be able to be stored into identifier-2. 

EXAMPLES : 

multiolv 3.S by 3.9°, 
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ELLMtNf 



PERFORM 
FORMAT : 

1. PERFORM pa rag rao h -n ame [THRU paragraoh- 

name-2) 

2. PERFORM paragraoh-name [THRU paragraph- 

name-? J 

{identifier} TIm^S 
{ i n t eae r } 

3* PERFORM paragraoh-namp [TH^U paragraoh- 

name-?] 

U^^TTL <co'^oition> 

DESCRIPTION: 

This instruct i or causes an unconditional branch 
to the sprcifien oaranraoh name, l*‘hpn the return 
conditions are ret^ execution resumes at tne in- 
struction folio wino the PERFORM statement. At 
present/ PERFORM statements can be nested eiaht 
levels deep . 

EXAMPLES: 

perform 10-hecir. 

perform lO-reaa thru ?0-ena-read. 
perform lO-reaa until card-in numeric. 
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ELEMENT 



HEAD 



format ; 



K E AD F i 1 e • n a m e 
DESCRIPTION: 



Data is read From sooie external aevice into 
Data division entri«»s for t^at file-name. 

EXAMPLES: 

read data-in. 



the 



77 



ELEMENT 



STOP 
FORMAT ; 

STOP TRUNl 
DESCRIPTION: 

This statement causes the interoreter to 
and return control to the monitor. 

EXAMPLES : 

S t OD . 



halt 
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ELEMENT 



WRITE 
FORMAT : 

WRITE file-narpe 
DESCRIPTION: 

This statement causes the values in the 
aivision associatea with the specified file 
to be printed on the line printer. 

examples : 

write total. 



Data 

name 
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element: 



<Condition> 



format : 



RELATIONAL CONDITION: 

{identifier-ll (NOT! IGPEATER) (identifier-?} 
(literal-!} (LFSS} (literal-?} 

(EQUAL} 

CLASS CONDITIQIm: 

identifier (NOTl (ALPHABETIC} 

(MU'^-EPIC} 

DESCRIPTION: 

Identifiers are tested as specified. 

EXAMPLES: 

total greater 100. 
number no*" numeric, 
character ecual oeta. 



PO 




I 



SOURCE LISTING 



COED 



•^define 


EOL 


0 I TT 


rud of line charact^'-r 


-tv' 


^de fine 


MEMSI2E 


4006 


size of me mr r y area 


.y/ 


^de. fine 


RWORDS 


.53 


n limber of reserved woi'ds 


:fc,' 


^de 1* ine 


SPACE 


0 






^de f i ne 


TAB 


1 






^de f 1 ne 


PERIOD 


2 






^de fine 


FILLER 


52 






^de f Ine 


ERR 


0 






-^de f Ine 


ADDLINE 


1 






^de f i ne 


MODIFY 


o 






^de f i ne 


DELETE 


3 






‘^‘de f i ne 


BLAiNK 


4 . 






*<^de f } ne 


PRir^T 


5 






^de f ine 


QUIT 


t» 






- de f 1 ne 


LESS 


3 






-de fine 


EQUAL 


2 






■<^de f ine 


GREATER 


1 






•^de f i ne 


TRUE 


1 






**de f i ne 


FALSE 


tl 






^de f I ne 


CR 


' 4* ’ 






i nc 1 ude 


’table" 








The following characters hnv»* special significance in COED 


■i'/ 


*Ae000’ 


the first 


line number and mandatory " I DENTI F ICAT 1 Op: 






DIVISION. • 


1 I ne entry. 




r-/ 


/'* *80000’ 


ma nd a t o ry 


"ENVIRONMENT 


DIVISION. ' I ine entry 


•M/ 


CO000’ 


ma nda t o r y 


"DATA DIVISION." line entry 


%/ 


/'t: * D00O0 ’ 


maiida tory 


"PROCEDURE DIVISION." line entry 


K/ 


For the 


fo 1 lo wl ng 


I t e res ’ Cll ’ is 


the newline character for ITH. X 




/* and 


’XKXXX’ is 


a corr^c t 1 y 


formed line number. 




”.CR" 






e nd of 11 ne 


%'/ 


“XXXXX 


dCR" 




<le 1 e t e this 1 i ne 


VC/ 


“XXXXX 


mCfl " 




mod i f y this line 


:«/ 


/* "XXXXX 


* < ASC I 1 string>.CH " 


comrtie n t line 




"q CR" 


or "quit CR 


*' 


qu It t he e d i top 




NOTEJ LOVER CASE ASCI 1 characters will be used by the proer*. mer 






except for 


comments and 


the 1st char in the line nunb'^r. 


. 


This version will 


generate sequential line numbers . If t h»* 


T/ 






user wishes to chan are th*» 
i mined I n t e i y following- the 



I i ne number , 
I 3 t number . 



type the new line nur.ber 



Increment the 
with a least 



numbers by o . Instead of 10, 
significant digit of 1 t lirn 9, 



If the user wishes to 

type a line iiuriier 
L . . no t 0 . 



c har 1 b[ 256 ] t 

c har tbC 256 J ; 

char 9 t C 4096 ] ; 

c har c 1 nC 5 1 ; 

char temp; 

char inemCnEriSI7El 

1 n t 1 bp ; 

Int tbp 

int sbp 

Int r n 1 

Int c p2 ; 

I It t action: 

Int e a ; 

int in ; 

int d J ; 

I n I t' n t 



'* Input line buffer 
tok.en buffer 
print name table 
current line - buff 
''t- temporary char l>»>ff 
memory size 



^ ■' 

r./ 

•^/ 

r/ 

'.r/ 



line buffer r»o i n I e r 
toK.en buffer pointer 
1st char of ytn in Ib-^'^' 

t<^»p of area I 
bottom of n a 2 



e d 1 tor 
top of 
top of 
1 <• I e 

I ' MO ^ 



nr t i o u 
ymbo 1 
me mo !' y 
f lag 

» i!C re K’o I 



t a I* I e 



/ 

r.y 

'f: / 



e^ROR 



•r / 



G1 



D; 



m 



error ( s ) 

char ; C 



yJlxf^n an error is detect-fi. a * * is inserted at the point 
that the error whs detfct'^^cl and the rnpr^'priote messriire is 
printed . 

Int n; 

ac t loTi = ERR; 

for (u=0; n< Ibpj n+-*-) insert an ^ ot error 

pu tc har ( * * ) ; 

pii tc har 
pu tchar ( CR) ; 

prlntf ( “Hs CR'\s); print the error msg 



i npn t ( mod ) 

Int mod; C 



irrprrr 



This routine accepts charac ters from the console and moves 
them to the Input buffer, LP , It then will analyse the 
input to determine who* action the editor will take. 

The parameter MOD Indicntcs if the action involves a new 

y^ line or a modification f an old line. 



Int next, digit, number , I ; 

putchar (*^*); input request chnr 

action - ADDLinE; 



if 



(mod 0) C y"^ input a new 1 Ine 

1 b p = 0 ; 

If <lbC0] >= *A‘ aa IbCO] '= *D’> C y^ line In line buff 

If ( lb[4l ’0’ ) 

if the last digit of the line Is not *0’ Increment 
the line numJ>ei* by 10 otherwise by 1. 
digit = 4 ; 

e Ise 



digit = 3; 
next = TRUE; 
whl le (next) ( 

next = FALSE; 
number = IbCdlglt]*^!; 

If (number>*9* 88 digit t=0) 
number - * 0 ’ ; 

next = TRUE; 



1 

for 



J 

else [ 
for 

) 



) 

IbCdlgltl = number: 
digit = dlglt-i; 

( lbp=0; lbp<5; lbp-*“-»’) 
putchar ( IbC lbp]>; 



( lbp=0; lbp<5; lbp + -^> 
pu tchar ( c I n.C I bpl > ; 



y^ lucre me n t line ^ 

( y^ check for overflow 

y^ put number in. buff 
/'t: print the new - 
y^ print curr line ^ 



IM Ibpl = gelchiir(); 



y^ read the 1st char 



If (lb[lbpJ> = ’A* aa IbCibpI =*D*) C y^ cli^ck If a line - 

lb[0] = IbC lbp3 ; / ^ wr i t e o ve r 1st ~ 

for ( lbp=l; lbp<3; Ibp^-»-) C read the rest of ^ 

1 b C I b p 3 = ge i c ha r ‘ ; 

1 f ( IbC IbpK ’O' I . Ihr lbp]> ’9’ 

error( " iriVALlD LINE NUMnEU ’^r 

:) 

Jbr IbpJ = getchar^ ) ; 

wli lie M b C I b p ] = = ’ ’ ^ ' s k i p b I a nks 

1 b[ +-*• I hp 1 = t c ha r ‘ ) : 

1 



:^y 

Sc/ 

:t:y 






r-y 



*y 

^y 

^y 

^y 

:*:y 

. 1 :/ 



:ry 

:»</ 

i^y 

i:y 

St/ 

^ / 
s:/ 

.tt/ 

ry 



1 



print the line ^ 



e Ise C 

for ( lbp= 0 ; lbp< 5 ; lbp + -*“^ 
put char ( lb[ Ibpl > : 
IbClbpl = gretchar(); 

} 






If (act Ion == .AJ)DLir?E) C 

the first characters r e a line nnuS-r — no errors 



while (lbi:ibp]==* • II lbCibpl = = 
lhC++lbp] = ge tc liiir f : 

swl tch ( lb[ Ibp] ) ( 

case OR? 

action = BLAfiK; 
break? 

case * . ’ I 

action = PRINT; 

whi le ( lb[ Ibp] '= OR) 

lbf++lbp 1 = 'har( 

br»^ a k ; 



wait for 1 st noTi-blank 
<’lcpeu<Is on 1 st non— blank 
• nler a BLANK LINE 

PBlNT a block of lines i'y 

/rn read 2 nd line number 



case * d * ? 

lbr+'**lbp] = t c ha r i ) : 

If ( IbC Ibpl == OR) 
action = DELETE; 
break; 

case * m* '• 

lbC++lbpl = getchar' ) ; 
if ( IbC Ibpl == CR» 

action - NODiFV; 
break; 



DELETE a I ine 
n>xt char raus t = newline 

print and ffOD 1 FY a lin<* 
Z'*= 11 *^ xt char must = ne valine 



case ’ q * • 

action = QUIT; 

IbC DJ = *E- ; 

for (lbp=l; lbp<N; lhp+ + ) 
IbC Ibpl = ’O' ; 

IbC Ibp] = getchnr< • ; 



If (ac t Ion =- ADDLINE) C 

whi le ( 1) C 

lbC++Ibp] = getcInrO; 

If (Ibp > 254 ) f 

error( "LINE OREATF.R TRAN 
re t urn ; 

) 

i f ( IbC IbpJ == ' . ’ > C 



lbC+-^lbpl = 
If (IbC Ibpl 
br#^ak ; 



} 

1 

while ( IbC Ibpl != OR) 

IbCIbp] = getcharO; 
Ibt Ibp] = EOL; 
re turn; 

) 



ge to ha r ( ) : 
= = CR» 



z^ QUIT the editor 



z^ 


pu t 


’E 0 OO 0 ’ in LB 




Z' 4 : 


ge t 


next c ^lar 




Z:t: 


ADD 


a ne w 1 I lie 






read 


the CO nso I e 


rk/' 



25 r, CIL\RACTER?" > ; 

Z'^ If Is read, check 

if it is the EOL 

' a ".(or'" is £ 0 :tc/' 



wait for newlin^ 



z'k corir\pr. 

compare ( ) C 



compares the eurr^'Ut 1 i number b’lffer. CLN . with t h^' ! ' ;ie 
number In t h#» 1st T I r- hn In the iMpnt line biffer. Lli 

/:« if LLN > LB the., C = ! 

/fc CLN = LD C = 2 ^z 



rri 



yr^ 


CLN < LB G = 0 




i n t 


c , k ; 




for 


(k^O; k<5; k++) C 
if (clnCk] == IhCkl) 


/2ft char are equal: cent 




c = EQUAL; 




else if fclnCkJ < IbCkl) f 


y-'* no t equa 1 : halt 




c = LESS: 




break ; 

\ 

J 

else if (clnCk] > lbtk]'‘ C 


^' 2 ft no t e qua 1 : halt 



c = GRF.VTER; 
br^ak; 

) 

rp t ur n( c ) ; 



up I i ne ( ) C 



tJPLliVE 



Finds t hp next larger l ‘ ne number and moves the current line 
to the low memory area. 



i n t J : 
temp = ’ 0 * ; 

whl le ( terap ?= EOL) ( 

temp - mera[+- + cpn - m-' r.f ^ p2++ ] ; 

) 

for (J = 9 ; J< 5 ; j+->‘) 

clnCjl = mera[ cp2-^.l I : 
re t nrn ; 



/- move ciiar unt i 1 end 
of t he line 

move next line ^ to 
curr line buff 



DOWLiTfE 

do wn I I ne < ) C 

Finds the next smaller line number and makes 
line In the high core area. The pointer cp2 
’ beginlng address of the current line. 



Int J ; 

memC — cp2] - memCcpI — 1; 
temp = me mC r p 1 1 ; 
whl le ( temp != EOL) ( 
mem[ — cp2J = temp: 
temp “ m<^mC — cpll; 

) 

for ( J = 0; J< 5 ; J++) 

clnCj] = me ra[ c p2-^j ] ; 
re t urn ; 



It t he c ur rent 
i nd Icates the 

TOO ve EOL c ha r 
mov’e char unt i I EOL 

/'< move line ^ to curr 
^ ^ 1 i ne number buff 



SEARCH 

search( ) C 

Searches the memory until the line number is found, 

t or the next Inrerer 1 i ne number for an add request) . 

This line Is made the rurrent line nmr.ber and pointer cp2 

Imllcate*^ the first nldre'ps. 



Int c ; 

If (action ERR^ ( no .^c^'or has been detected 

c = compare! > : cnrjpar'' New and Current LN * s 

switch ( c ) ( 

case GREATER: NLN <* CLN 

whl le !c = ■= GfU' > C »“ mo vo d o v.-n In memory 

d o wt: line ‘ ^ 
c = ' c trtpo ’• ' , 






>'y 

r.y 






^y 

ry 



^y 

^y 

ry 



2ft/ 

2ft/ 

2ft/ 



2ft/ 

:ft/ 



2ft/ 

2ft/ 



2ft/ 

2ft/ 

2ft/ 



2ft/ 

:ft/ 



2ft/ 

2 ft.' 






I 



If (c == LESS* 1 1 ne move up 1^/ 

up 1 i ne ( ► ; 
br«»ak; 



case EQUAL* 
break : 


NLN = CLN 


ha 1 t 




case LESS*' 


' NLN ^ CLN 


mo u p 





wh i I e ( o = = LESS > ( 

up I *i uc ( ) ; 

r = "'OTnp'> I '/ : 



) 

} 

If ( ( ac t lon= = ADDLINE ' uc t io n= = BLA:^":> c = = EQUAL) 

uf'licate nutnher for a new line 

error( "DirpLICATE LITIE NEftBER"); 

e Ise 

if ( ( ac t lon= = MODI rV .1 ac t i o n= = I’ELETE M ac t ion= = PR^NT) 
QQ c ?= EaK\L/ 

a modify, '’elete, or print request and t lie 
line is not foun<l. 
error( "LINE rOTi''[E!:R NOT EOUTJR ’ > ; 

) 

re turn; 



t syroC ) C 



/'•J GETSlrTt 



Flndif the length of the *=jymbol print name in the I 1 n** huff. 
SI3P Indicates the 1st character of the symbol 
LBP indicates the 1st blank, tab. or period 



1 n t 1 ; 

3 bp = 1 bp ; 

for ( 1 = 0; 1< 17; l-»*-^) f 

If ( IbC Ibp] == '*11 n>[ Ihp] == * ’ 

re t urn( 1) ; 

e Ise 

1 bp++ ; 

} 

re turn ( 1 ) ; 

) 



ma t ch (1) 

Int 1; f 



MATCH 



IhC Ibpl == * . * ) 



return the leng^th ^ 



Compares the symbol print name Indicated by the SBP to all 
the print names In the s^.^mbo I tabl‘d until a match is found. 

The parameter "1" Is the leni^th of the print name. 

int addr , e q. k. tn : 

addr = -16; befirinine: of sym tab 

del = 0; delete Is false 

eq = 0; #»qnnl Is false 

while (eq == 0 80 addr < ea^ C 

compare until qua 1 Is true or t ho on I of the sx-mbo 1 table 
addr=+16; '•’'iiextaddres«lnS.T.>^/ 

e <i = I ; 



IfCstCaddr] < 0) f tin* delete flacr is set''^^/ 

stCaddr] =0 0177: 

d o 1 r 1 J 

) 

for t k=0; k< I ; o«- mparo a 1 1 cliar 

If ( lb[ sbp+k) ?= ^ tfatl Jr + kl t 

A q = 0 J 

If (-<1 == 1) 

/ I ns nr o f hn t tho r»e*;;‘ letr a b i- * * (end of rjnme'l^/ 



* x' • > 



If (k<15 Q& st[ addr-^k^n ! = 
e q = 0 ; 

if (del == 1 eq == ( 

found a delete*l narr*^ ;^nd it doesn’t match- restore finpr 
del = 0; 

st[oddr] =l 020^^; 

J 

3 

if Ceq == I) C 

name matched, return the token number 

tn = addr >> 4: 
re t urn ( t n> : 

} 

Ise 

re t urn ( - 1 ) ; 



en te rpn( 1 > 
i n t 1 ; 



/v: ErrTcr.PN '</ 



Copies the symbol print nare from th^ line buffer, located 
at SBP with length *1’, into the next empty symbol table 
loca t ion . 



1 n t a , k ; 
a = 0: 

wh lie ( st[a] ?= */’) ( 

Find the 1st entry where the 1st char Is ’/*, 1 . . empty 

a = + 16 ; 

If (a > = ea ) 

re t urn< - I ) ; 

3 

for(k=0;k<l;k'>‘-»-) i^ove the print name 

= lbCsbp+-*"3: 

stlal = */*; Insert end of nam#* char 

return (a>>4) ; Return the token number 



TOKErnzE 

token Izo < ) C 

Converts a line in the Procedure D i v i 1 o n to token numbers 
and puts them in the t'^Ken buffer, TD . The TB is then moved 
to the Tcemory area. If the line is in the Data Division an 
entry in the symbol table is made. La'^tly, ail lines In the 't?/ 
Identification, Env i ro rjT*,r/ u t , and Data Divisions are copied 
directly from the line buffer into memory working area 

( i .e , in .\SCI 1) . '^y 



i nt J , t n . leng tht 
char t ; 

If (lb[0]==*D* GO (lbCm=-0’ il lbC2J!=’0’ II lb[3]?^'0’ M 
Ibl 43 ?= * 0* ) 05 Ibi 6] ) C 

line Is in the Pro'^ , Div and not a comment or the header 
t bp - 1 bp = 0 1 

will le ( tbp < 5) Mo ve t he 1 1 ne - t o 

tb[tbp4-^3 = IhClI.p-*^^: 

while MbClhp] EOL) ( .'i f I nd to ke ns un I i 1 EOL*/ 

s w\ tch ( 1 b[ Ibp] ) V 

switch is !■•«.-»» M on the vt character In LB ty 

ase * *• 

tb[tbp^-+* • Sr\CF. ; Tok*»n ^ for i lank ^y 

1 bp^‘^- : 

break; 

case * ’ • 

tbf tbp-^-**-] i AR; :• Tok^n ^ for T.M» ' 

1 b p+ ; 



break; 



case ’ . ’ J 



tb[ tbp-t--^] = PERIOD; 




token ^ for PERIOD 




1 bp+-^ ; 








break ; 








case ’ 0* : 




Symbol is a LITERAL: 




case M ’ : 


^':K 


check the sym table 


3f:/ 


case ’ 2 ’ : 


'I'. 


for a match else 




case * 2 ’ •* 




?na he a ne v entry 





case * 4 ’ : 
case * 5 ’ : 
case ’ 6 ’ : 
c ase * 7 ’ : 
case ’ 8’ : 
case ’ 9 * • 
case 

case * - ' : 

length = getsy7n<); 

if ( 1 e ng t ii = - 17) 

literals can be more than 16 char: reset Ibp 

I bp — ; 

tn = raatch< length) ; 

if ( tn < 9) ( no match found 

tn = enterpn( length) ; 

I f ( tn 0) C 

error( "SYT1B0L TABLE FULL ") ; 
return; 

:> 

} 

t = tn ; 

tb[ tbp + -t*] = t : 

bre a k ; 



default: a 

length = ge ts'jTTiC ) ; 
i f ( length == 17) C 

error( ’NAME GREATER THAN 



symbol print name 



16 GfLAR”); 






re t urn ; 

) 

else C 

tn = raatchC length) ; 
i f ( tn < 0) C 

error < "NAME NOT IN SYflBOL TABLE") ; 
re turn; 

) 

else C 

t = tn; /^piittokenln TB 

tbC tbp++] = t ; 



) 

tbC tbp++] - EOL; insert EOL in TB 

If <tcp2-cpl) > tbp) 

Insure there is room In memory for the buffer 
for (j = 0; J<tbp; J*^+) 

memC++cplJ = tbljl; 

e I se 

error( "MEMORY FTR.L ’ ‘ ; 

) 

e Ise ( 

If MbC 91 == ‘CM ( 

line is in the Data Div 

Ibp = 3; sf»arcli fra I Ine ^ 

while ( IbC lbpl== ’ ’ M lb[ lhpl^= 

I bp+-»- ; 

if ( Ibf Ibp] -= ’O* M Ibl IbpJ == ’7’) ( 

/'^ <=* M f r y is A data definition 



while ( ( n>r U»,r>i ’ a ’ II lMi’*pl>’-’) AA I b f I b p ] ! ^ ) 

^kip to t h»* n I pile bo tic char r EOL 



HT 






1 bp*»*+ : 

J = ge tsym( ) : 

If (j == I7) r /J; name is too l^nf; 

error( “N/V'lE GREATER T1L\:^ 16 CHAR’M ; 
re turn ; 

3 

else If (.j == O) C 

error! " TKCORRECT RATA DIVISION ENTRY"); 
re turn; 

e Ise C 

t n = mo tr J > ; 

if ( tn == -I) C NEV print name 

til = eiiterpn(j); 

I f < tn < 0) C 

-rror( "SYWBOL TABLE FULL'”*; 

re t':irn ; 

} 

else If (tn>=0 58 tn ?= FILLER) C 

f<N»in<l a match and not the name "filler" 
error( DUPLICATE SYTfBOL NAME"); 
ret urn ; 

> 

J 



3 



3 

whl le ( n>C Ibpl ?= EOL) 

I bp'*'+ ; 

if (»cp2-cpl) > Ibp) 

for (.J = 0; J^”ibp; J- 



else 



njemC^+cpl] = Ihlj] 
error! "MEMORY FIR.L") ; 



3 

re t ur n ; 

) 



y^ 


LBP 


to 


e nd 


o f 


1 i ne 




Insure 


room 


i n 


me mo r 




Mo ve 


LB 


t o 


memory 



« DECODE 



decode ( 1 3 

c ha r t ; 



finds the address of token number 
name into the i Ine buffer, LB. 



t" and copies the print 






3 



i n t addr » m ; 
addr = t < < 4 ; 

m = ad dr-*' 1 6 ; 

while (stiaddr] != */' 88 addr < m) 

IhC lbp+-^J = 8t[addr++] ; 
re I urn ; 



y'* address of the token ^*y 
y^' copy name un t i 1 end 



yr. BLANK 

b laakC ) ( 

y^ Inserts a blank line Into any division. 






i n t J : 

for ( J=0; J-'u; J+-*-) 

nif'rT!r-^-’'<'plJ = ibfjl; 
mem[++cpl} = EOL; 
re t urn ; 



Move the line number *y 
^ Insert end of line ^y 



PRINT 



print!) C 





Pr ints 


t he r 


nrront line on ronso 


le. If the 


1 i ne 


is in t 






Prne . 


D 1 " . , 


it is bf'fore 


print 1 n . 


Til i s 


1 i no i s 






t ^ nr T-r* 11 X 


1 t lie . i . e . both t li<' 


CLN and CF2 


n re 


unc lu' nc‘o - J . 








i n t J ; 






If (clnC03==*D’ QS (clnCn?=’0' II 
clnr4]!=*0‘‘> rj[ c p2'^6 1 

line Is iu the Proc Div and not 
sbp = cp2; 

1 hp = 5 ; 

for (J = 0; J<5; J+-*-) 

put char ( raemL s bp+*^ 3 ) ; 
temp - memC s bp++ J ; 
while ( temp != EOL) C 

deco<le( temp) ; 
terap = mera[9bp++l; 

3 

for ( J = 5 : J< 1 bp : ^ 

putchar (IbCjI); 

) 

e lae C 

s»bp - cp2; 
t^mp = mera[gbp++l ; 
whi le C temp f= EOL) ( 

putchar ( temp) ; 
temp = roe raC s bp-t*-t* J ; 

3 

3 

putchar ( CU) ; 

re t urn : 



c lnC2J ? = ’0’ M c ln[ != 1 

! = ’ • ) C 

a comment or the hen'^ler fine 
print the I i ?ie iirm 
Decode token unrni'er 

print the LB 

print line fm memory 
decode the EOL char 



de le te < mod ) 

I n t mod ; C 



DELETE 



Deletes current line from memory by movlni^ CP2 . If t line 
Is in Data Div, the delete fla)? Is set for the appropriate 
symbol table entry. If MOD is true, DELETE was called 
MODIFY routine and the line buffer, LB, must be sav^^d. 



int tn, j . length: 

if ( IhCOJ != ’C*) line is not in Data 

while tmera[cp2++3 != EOL); so move CP2 to omi 

else C 



Ibp = 

if (mod) C sa ve the I ine buf f 

t bp = 0 ; 

whi le ( IbC Ibp] != EOL) 

tb[ tbp+-K] = lb[ Ibp-t-h] ; 
tbC tbp] = IbC Ibp] ; 

Ibp = 0; 

) 

lbC0] = raemC c p2 ++ ] 1 

while (IbClbp] ?= EOL) mov*o old line to LB 

lbC++lbp] = me rnC c p2 + -^] I 

Ibp = 5 I. 

while ( IbC Ibp] == ’ ' M IbLlbpl == ••) 

lbp++; skip blank char 

if ( IbC Ibp] == ’0’ II IbClbp] == ’7') C 

not an FO entry, a coinineut, or a blank line 
whi le ( IbC Ibp] < *a ’ If 
1 bp++ ; 

lengjth = g-ets>Tti(); 
tn “ match ( length* : 

If ( tn > = RVORDS) C 
J = tn<<4; 

stCj] 0200; 

] 

} 

ibp = 0 : 

i r ^ rno <l ) C 
t p = 0 ; 

v;hlle (tbCtbpl *= 

IM tbp-*-"^! ~ th 
Ibi 1 bp++ ] = f br t hp : 

II'P = O; 

) 



^ f i nd symbo 1 name 
not a reserve r vr 



' ^ s e 



t del*^te flag 



restore line hnf^ 



I 



if./ 

^/ 

r,/ 

^/ 

T./ 

if/ 

if./ 

r./ 

^/ 

if/ 

if/ 

'f/ 



1 



f CLN to n^xt I ine 



1 

for ^J-0; J<3; 

clnCj] = rnf^mC cp2*^ j ] : 
ret nr n ; 



mod 1 f y( ) C 
c a 1 1 5» 



MODIFY 

the routines to allow the modifleation of a 



1 ine 



t/ 



pr 1 nt ( ) ; 

I npu t M ) ; 

switch (action) ( 

case ADDLINE: 
delete( 1) ; 
to ken I ze ( ) ; 
break? 

case DELETE: 

delete(0); 
break ; 

case BLAi(K: 

Ihp = 0; 

break ; 



Deplace old line with new^/ 



/:k .{rv le te the old lln^ 



do not chancre the old line 



de f au 1 1 : 

error( ” ILLEGAL ACTION FOR LINE MODIFICATION"); 

) 

re turn; 



pr 1 n t b 1 k( 



PRINT BLOCK 



Starts at the 1st line niinber in the LB and prints all lines 
/* until the current line matches the 2nd line number in tlie LB.^/ 



If the 1st char following the comma is a CR» one line is 
printed. If the 1st char following^ the comma Is a *E', all 
lines are printed until the End Of File Is encountered. 
Allowable forms: XXXXX, XXXICK GR 

XXXXX.E GR 
XXXXX.CR 



I n t c , I ; 

if ( lb[63 EOL) 

if not a newline, write the 2n<l line number over the 1st 
for ( 1 = 0; i<5; l-^*»^) ( 

IbC n = lb[ 1+6] ; 
if ^ IbtO] == -F/ ) 

break; 

] 

c - compare ( ) | 

while (c r- GREATER) C 

print lines until the 2nd line number Is found or exceed#»“d 
p r i n t ( ) ; 
up I I ne ( ) : 
c = compare < ) ; 

if (clnlOl == *E' Ih^O] ’EM i 

prlnt(); print the EOF line 

bre a k ; 

] 

) 

re turn ; 



qu I t ( ) 



/T. QTUT 






Th- 



file has been movo'l ‘o t h«> low nren of menviry and ctI 



points to the last of the file. The symbol table 

/'< mus I b*^ e leaned up by seftiaf? nil deleted p-naraes to zeros. 



Int 


a. j; 








for 


^1 = 0; ,1<6; J++) 

me mC + + C f> i 3 = mera[cp2+ + l; 


Z'i: 


move End Of File 1 i nr 


r^z 


a = 


0; 








wh ile (a < ea) C 


Z^ 


Chock entire S.T. 






if (sttaJ < 0) C 




i 1‘ t he delete flag* is 


set 




for (J = 0; J< I6t J-*"*-) 
s t C a + J ] = * z * • 

3 

a = + 16 ; 


Z^ 


set the entry to ’/* 






Z^ 


next p-naine entry 


^Z 



) 

re turn; 

} 

/:#: INIT 

InitO C 



Z:K 


Chec ks 


If 


file 


Is new. If so , 


t he 


top of 


f i le 


and end of 


^Z 


Z'*. 


file lines 


are 


i nser ted . 










r^z 


Z^ 


1 f o Id 


o r 


ne w, 


the EOF i made 


t he 


current 


1 ine 


niimber 





1 n t J , k . 1 ; 

1 0 ; 

for (j=0; J<RV0RI>S; J-*“+) /'*> Initialize Ihe s^Tnbo I table '^/ 

for (k=0; k< 16; 

s t [ l + -t- 1 = sym [ j ] [ k] ; 



ea = 2048; 

J = RW0RDS^16; 
wh ile ( .} < e a ) 


C 




set the length of syn tab 


^Z 


s t C J ] = 

) 

cp2 * WEMSIZE; 




Z^ 


GP2 starts at top of memory 


^Z 


If (cpl == -1) 


C 




a new file, l.e. no char.s 


*z 


me m[ + + c p 1 1 


= EOL; 








me m[ + + c p 1 I 


= ’A * - 1 ; 




Z'T. Set top of file 


^z 


iTieni[+-’'rplJ 


= EOL; 








memC ++c pi] 


= ’E’ ; 




Z^ set end of file line 




me mC p 1 J 


= ; 








memC ++cp 1 ] 


r » F ’ ; 








tneraC + + cp 1 ] 


= ’ * ; 








me tnC +-**c p 1 ] 


- * ’ ; 








me ni[ + + c p i ] 

} 

down 1 i ne ( ) ; 


= EOL; 


Z^ 


makes EOF the current line 





re turn ; 



HEADII^G '^z 

head I ngi ) C 

print f ("COED: Cobo I Editor. V-rslon I.O CR*‘); 

} 

MAIM 

cm 1 n( ) C 



Int hr 


rp 1 = - 1 : 


z* 


for TEST only 




head i '» ; 




prints heading line 




Inl to ; 




l n 1 t 1 n 1 i z i rout 1 ne 


/ 


notion = ERR; 


wh lie (action \ - QUIT) ( 


r>. 


t 1 1 user sez "quit" 


tz 


1 n p n 1 1' O » ; 




nd t he co nso le 


^^z 


s n r<^ h( ) ; 




find t lie desired line 


r^z 


swltcli (action) ( 




■» o t i n '* is set in i r» p a t 


/ 



I 



oo9*» ADDLINE’ 

toke n i ze ) : 
break; 

cas-* MODIFY: 
rao d i f y( ) ; 
bre a k ; 

case DELETE: 

delete(D> ; 

break ; 

case BLANK: 
b 1 a nk( ) : 
break: 

case PRINT: 

pr i n t b 1 k< ) t 
break; 



I 



} 



c a s QU I T : 
qu I t ( ) ; 



for (h=0; h<=cpl; h++) 
pu t char< raemL h J ) \ 
for (h=0; h<ea; h++ ) 
pu tchar ( s t [ h] ) ; 

I 



ADD a new j i ne 






MODIFY anold lii?e 



DELETE an old lire ^: / 



I ns e r t n BLANK LINE 



pi'lnt a BLOCK of lines t^/ 



QUIT the editor 



move mem area to file 



02 



SOUHCE LISTIiTG 



COIN 



fine 


SPACE 


-«^de fine 


T\B 


^de f i ne 


PERIOD 


•<^de fine 


NEVf-LINE 


^de f 1 ne 


COMMA 


^de f liie 


COMMENT 


'•le f i ne 


ACCEPT 


■^de f 1 lie 


ADD 


“«^de f 1 ne 


TO 


•^de fine 


ROUNDED 


d e f 1 ne 


SIZE- ERROR 


•^de fine 


CALL 


^de f 1 ne 


CLOSE 


^de f 1 ne 


DELETE 


^de f i ne 


INVALID 


d e f 1 ne 


DISPLAY 


•^de f 1 ne 


DIVIDE 


^de f i ne 


INTO 


d e f i ne 


ENTER 


>^de f 1 ne 


EXIT 


^define 


GO 


•^de f 1 ne 


DEPENDING 


'•'de f 1 ne 


IF 


•^de fine 


NEXT 


•<^de f 1 ne 


ELSE 


^de f 1 ne 


movt: 


^de f i ne 


MULTIPLY 


«<^de fine 


BY 


•^de f 1 ne 


OPEN 


^de fine 


INPUT 


^de f i ne 


OUTPUT 


•<^de fine 


PERFORM 


•^de f i ne 


THRU 


^de fine. 


TIMES 


^de f Ine 


UNTIL 


^de fine 


READ 


-<^de fine 


END 


^define 


STOP 


-•'de f 1 ne 


RUN 


•'de f l ne 


SUBTHAGT 


^de f 1 ne 


FROM 


<^de fine 


WRITE 


■^de f i ne 


BEFORE 


^de f i ne 


AFTER 


^de f 1 n© 


ADVANCING 


•^d© f 1 ne 


PACE 


'*‘de f i ne 


NOT 


<^de f 1 ne 


GREATER 


^de f Ine 


LESS 


^de f l ne 


EQUAL 


■•^de f 1 ne 


NUMERIC 


^de f ine 


ALPHABETIC 


^de f i ne 


EOL 


^de f 1 ne 


MEMSIZE 


^de f 1 ne 


MAX 


^de fine 


ON 


^de f Ine 


OFF 


^de f 1 ne 


TRUE 


'define 


FALSE 


'de fine 


NUL 


^de f i ne 


EOF 


'de f Ine 


ndd 


^de f 1 ne 


s ub 

COBOL IN IE 


Tli^ f o 1 1 


owIp)^ tnblee! ?re 'i^» 



- rnp( 

nr’’ '*rio f t r ro u t i ne . In 



0 

I 

2 

3 

4 

o 

6 

i 

3 

9 

10 

1 I 

12 

13 

14 

13 

16 

17 

IB 

19 

20 

21 

oo 

23 

24 

23 

20 

27 

28 

2^ 

30 

31 

32 

33 

34 

33 

36 

37 

38 

39 

40 

41 

42 

43 

44 

43 

46 

47 

48 

49 

30 

5 i 

0177 

4096 

0256 

OOO 1 

OOOO 

OOOO 

o /)0 1 

• O • 

o 

I 

:Rrnr.TER - 

4 ff>r the 



/'*> the Imp Hroenta t ioa of thla interpreter on a microcomputer, tliej?e 
tab lea woul<l be la ROM. Thus the access time would be nppro:**^ 
imately equal to the memory eye 1 e t i me . 

c har ^add tabl [101 C add i t ion sum ♦ a * e 

"0120456789 " , 

" 1204567890" , 

"2045678901 " , 

"04567890 12" . 

"4567890120" , 

"5678901234" , 

"6789012045", 

"7890120456 " , 

"8901234567" , 

"9012345678" . 

0 

^ ; 

c ha r^addtab2[10] C /^additioncarrvtable^/' 

"00OOOOOOOO" . 

"000000000 1 " , 

"0OOOOO0O 11", 

"0000000 111". 

"OOOOOOI 111", 

"00000 t 1111", 

"00001 1 I 1 I 1 " , 

"0001 I 1 1 1 1 I " , 

"00 1 1 I I 1 1 1 1 " , 

"0 1 1 1 1 1 n 1 1" , 

0 

1 ; 



c har ub t a b I f 


10] C 


sub t r 


ac t 


Ion ^ a b 


le 


if:/ 


"0987654321 




t ii i s 


tab 


le 


in-"' s 




" 1098765432 


% 


that 


S U 1) 


tab r 


! y] 


'M/ 


"2109876543 


M 


means 


X 


- y 




r./ 



"3210907654" , 

"4321098765" , 

"5432109876 " , 

"6543210987" , 

"7654321098" , 

"0765432109 " , 

"9076543210" . 

0 

) ; 

char ^eubtab2 [ 10] C borrow table 

"0 1 1 I 11 1 1 1 I " , 

"001 1 1 I 1 1 1 1 " , 

"0001 I I I 1 1 1 " , 

"00001 11111", 

"000001 nil", 

"000000 1 III", 

"00000001 II", 

"00000000 I I ", 

"0000000001 " , 

*0000000000 " , 

0 

) ; 

char ^tnaltabl [ 10] ( LSD of produet 

"0000000000" . 

■'0123456789 " , 

"0246802463" . 

"0369258147" , 

"0482604826 " . 

"0505050505 " . 

"0628406284 " , 

"0741852963 “■ . 

"0864208642 ’ . 

"098765432 I " , 

0 

} : 



94 



char ^multab2 [ 1^1 
"00000^)0000 •' . 
■00O0OO000O '• , 
"000001 11 : 1 " , 
"00001 l 1222" , 
"0001122233". 
"0011223344", 
"001 1233445", 
"0012234456" . 
"0012344567" , 
"0012345678" , 

0 

3; 



MSD of product 






i n t 1 e t h 0 ; 
i n t err f lif OFF ; 
c ha r s a ve ' ’ ; 

char me m[ MEWS 1 ZE] 
i n t pc ; 
i n t s p t r ; 
c har sbuf C 161; 






byte accessible me mo ry array 
program ciiti byte offset in mem 



searc h 
searc h 



b u f f e r 
b uf f er 



pn t r — byte 



of I’se t 



c bar 


xs , ys ; 








sign bytes for x and y buffers 




1 n t 


x:l , x2 , x3 , y 1 


,y2,y3, 


n ; 








c har 


xbC321 ,yb[ 


321 . t^mpC 321 


,cC32J ; 


operand buff for math routines 


'4'y 


i n t 


s p - 1 ; 








stack pointer for PERFORM v^rb 


a:/ 


i n t 


c n tr C 8 1 ? 








counter shack for PERFORM v^rb 




1 n t 


r t nC 8J ; 








rtn addr stack for PERFORM 


ncy 


i n t 


® xt [ 81 ; 






/‘fc 


exit cond stack for PERFORM ’«*^rb 




c har 


psav#» ; 












i n t 


Cpl , c p2 ; 








memory pointers — byte offsets 




i n t 


be gpr^ c : 




byte 


offset 


— in It to beginning of pi*oc d i v 




i n t 


begda ta ; 




byte 


offset 


— inlt to beginning of data div 




i n t 


ba.se ; 




byte 


offset 


— Inlt to beginning symbol table 




i n t 


c o nd p t r ; 








condition pntr for IF v^^rl> 




c har 


lbC256] ; 








line buffer 


icy 


i n t 


1 b p 0 { 








line buff pntr — byte offset 


icy 


1 n t 


c 1 n f 5 1 ; 








current 1 i rie number 


ay 



I n t 
i n t 



READ I n 



rend ln( ) C This routine initializes 2 memory pointers — one 

/'^ at the beginning and one at the end — and r-^eds 
In a predefined Input file until eof or the 2 
pointers meet. . 

cp 1 - - 1 ; 
cp2 = MEMSIZE; 

snve - ge tcliar( ) ; 

wh 1 le (save f= EOF 33 cpl T= cp2) C 
m^roC++rpll - save; 
save = ge tchar( ) ; 

1 

If (<"pl t= cp2) C 

m*;* mf p 1 1 - save; write EOF into r^mory 

1 e ng th = cpl; 

pr-intfC "FROCRAM EXCEEDS AVAILABLE xMEMORY"); 

« rr f 1 g - on X 

re turn ; 

) end read in 



VTIITEOIJT 



vrr i teo »l t i ^ C 

vii lie ( o p 1 ? = 

me rnC -^-^c p 1 ] 
cpl - ^ ; 

I o o p r 



1 e ng t h) 

= me mt c p2’t--»* ] ; 



^5 



vrhllf'^^Dl !- 1 Plinth memEcpl] EOL) 

putc'hnr ( meinL c p 1 + "*- J ) : 

If ( c p ! ! = 1 e t h> C 

pii t c har ( ’ ^ ) ; 

g-o t o loop4 ; 

) 

re t ur n ; 

end wr i teoiit ■'</ 

COfTPA.nE 



compare 


( ) c 


Th is ro u t i 


compares the current line number 


A^y 






buffer , c 1 n , 


with the first 5 character® in the 






y^ 


line buffer, 


lb. 




A:y 




/'AZ 


If c 1 n > lb 


a 1 


is re turned ; 


A:y 




y% 


If c 1 n - lb 


a 2 


is ret urned ; 


>:y 




yAi 


If C 111 < 11) 


a 3 


is re turned . 


A^y 


Int 


comp . k; 










for 


( k= 0 ; k< 5 ; 


k++) C 










if ( c I n£ k] 


= = IbCkl) 




y'^ char are equal: <-ont 


A:y 




comp = 


EQUAL; 










else if ( c 


InCkJ < IbCkl) 


C 


y^: not e qua 1 : hn 1 t 


Aty 



comp = LESS; 
break; 

1 

else If (clnCkJ > IbCkl) C not equal: ha I t 

c o mp = GREATER ; 
bre a k ; 

:j 

) 

re turu( comp > ; 

) end compare 

UPLINE 



nplln©<) C This routine finds the next larger line number and 

moves the current line to low memory area. 

int J. scratch; 
scratch = * 0 ' ; 

while ^scratch != EOL) C move chnr until ^ nd 

scratch = memC*»* + cpl] = meniCcp2++]; of the line 

) 

for(j^0;j<5;j++) /^movenextline^fo 

clnCj] = mpftiCcp2 + j]; curr line buff 

re turn; 

} end up 1 Ine 



.'■k DOWLINE 

downllne() C This routine finds the next stmller line number 

and makes it the current line in high core — c p2 
indicates the beginning ad dr of the current line 



Int J , sera tch; 
memf — cp 2 J = memCcpl — 1 ; 
scratch = memtcplJ; 
while ^scratch != EOL) C 
mem[--cp 21 = scratch; 
s^'ratch = memC — cpll; 

) 

for (J = f); J'' 5 : J**“+) 

clnlj] - meratcp2-^j]; 
re turn; 

y'*' end downline 



move EOL char 

y^ move char until EOL *y 

mo v<^ 1 ine ^ to CTirr 

y^ I ine number buff 



/* THfCEN 



token( ) C y* This routir<' ret tit ns the next tok.en 

iiumbe r ‘^ranne<I. ^y 

whi le( rnemC pc"**+l < COM?fENT> 

y'^ skip ppi'iods. coinmns. tabs. aii<I blcnf.s 



pc ; 

f e t ar n( mp ml pc ] ) ; 

} /^* en<l token 

/* FIND 

flndC) C THis routine 5?pnrche^ the data division until 't 

finds a match th the name In sbiif. 

int 1; 
loop i : 

i = 0: 

while (i < 16 D5 sbufCi] T= NUL 33 sbufrn == mernCcp2]:^ C 

1 *^+ ; 

meraC ++C p 1 ] = memC p2'*‘+ ] ; 

if ( i != 33 sbuf C i] lUJh> C 

i = 0! 

mpmC+-*-cpl] = mem[ cp2‘*'+] ; 

g-o to loop!; 

3 

cpl now points to the last character of the identifier 
for(i = D; i<16; i++) ^'^zerooutsbuf 

shuf f 1] = IWL; 

re turn ; 

3 e nd f 1 nd 

INlTV^'vL 

I n 1 1 va I ( ) C This routine Initializes variables in the data 

division that have the ‘value’ clause. An ' = ’ 
sign and ^ he initial value is inserted directly 
following the clause. 

int i I 

lb[0] = *C’; fill lb with line *^of data division-/ 

for(l = 0T i ^ 5; i*f+) 

IbC iJ = *0’ t 

while ^com|>are() ?= EQU.AL ' 

/^ raovp lines to lowcor-^ til top of dota<liv :f:/ 

do wn I i ne < ) ; 

begdata = cpl +1: /^ byt^ offset of first line of data div 

sbuf[03 = ’ V ; 

sbuf [ 11 • ' a ’ ; 

• bufC2] = MM 

sbufC 33 3 * n M 

«buf[41 = *e*; 
while < cp2 != begproc) ( 

find()t ^ 't: finds each occur a nee of VALUE clause ^/ 

wh 1 1 e < I ( me raC c p 1 J > = ‘ 0 ’ 33 me inC c p 1 ] < = ’ 9 ’ ) ) 

me mf ++c p J] - me m[ «* p2-**> 1 ; 

sptr = cpl; 

while (meralcpl] != EOL) 

niemC ’♦' + C p i ] = memfcp2-^+]; 

rtieroC c p I ] = ’ = ’ ; 

while (memCsptrl != ’ = ’) 

inem[+ + cpi] = merafsptr++]; 
memC+ + cpl] = EOL: 

3 

re tnr n J 

3 /* end Inltval 

/‘^ L0^\D *• 

load(r> This routine* loads xb or yb , depending on 

the value of r. with the value correspond- 
ing with the token number in save. */ 

I n t r ; C 

int i ; 

sptr = savo 16 + base: 

if ( ( me m[ p t r 1 n ’ 0 * ) M f inc mf s p t r ] > * ^ ’ ) ) C 

if ^ me tnL sptr] =- *-’) C n‘^gatlv<' literal 

xs - ’ - * ; 

sp t r-»*+ : 



3 



.7:, -i 



e 1 



C 

ir ^niemCsptr] == ’-*•’) C positive literal / 

xa = * + ’ ; 

s p tr++ ; 

) 

else C alphabetic — find value in data div 

while <cpl ?= begdata) 

Diem[--cpl] = !3ernCcp2 — ]t 
for (1 = 0; i < K> : i + +) 

sbuf [ i ] = !n#^nf sptr++] ; 

f I nd ( ) ; 

whi le ( inemC cp 1 1 != " = *) 

memC+ + cpl] = me mC c p2++ J : 
s p t r = cp2 ; 

3 

whi le ( ( raoni[ 3 p t r ] ? = ’ . ’ " ^ me inE s p t r J ! = EOL) A5( meroE sp t r ] ? = !^UL) ) ) C 

xb[ 1.1 = memEsptrl ; 

i-H+ ; 

s p t r + + ; 

) 

1 f ( me raEsptrl ?= E 

X i = 1 ; 

x2 = yl ; 
x3 = 0; 

5 

e Ise C 

xl = 1 ; 

s p t r + + ; 

while ((memEsptrl EOL) 5Q (menEsptrl != 0)) C 

xbE i] = mf»ni[sptr]; 

1 ++; 

3 p tr + + : 

x2 = yl + i ; 
x3 = 1 ; 

3 

if (r == y) C 

for(l = 0; 1 < x2: 1-!-+) 

ybf IJ = xhC 11 ; 
y I = xl ; 
y2 = x2; 
yO = x3 ; 
ys - X 9 ; 

cp2 = cp2 + y2 ; value will be overwritten by r<=‘^*ult 

3 
3 

re t urn : 

3 end load 

RELOAD 

reload() C y* This routine reloads a value from yb into 

t he data division. 

1 n t I : 

I = 0; 

If C ys = = ’ - ’ ) 

ra^^mE ++C p I } = ys ; 

If (ybl n == ’0* 88 yt > i ^ 

1 ++ : 

while M ' = yl) 

ttrenE +"**r*pll = ybC 
I f ( y.3 ? = 0 > ( 

me mC r p 1 J = * . ’ ; 

whi le (1 < = y2) 

mf ■ra[++cpl] = ybE * -*•-*' 1 ; 

3 

memE p 1 1 = EOL; 

re t iir ; 

3 /* ^ nd re 1 o ad 

y^ 



NEXTT..irrE 



ne X t 1 I ne ( ' C 



This routine skips to the first token of 
the next line. 

int i ; 

If ( save ? = EOL) 

will le ^ tokeu( ) T= EOL) ; 
for < 1=0? i < 5t i++) 

cl II til = me raC pel; load cln and skip line ^ 

) end next line 

KEYWY) 

ke'jrwdC ) C This routine calls routines by cobol key words. 

s wl tch( sa ve ) C 

case CIMHIENT comment 

ne X t 1 i ne ( ) ? 
break; 



case ACCEPT : accept statement 

accept () ; 
break; 



case ADD • 

c OMpu t e < add ) ; 

break; 

case CLOSE * 
c 1 ose ( ) ; 
break; 

case DISPLAY : 
d I s p I a y( ) ; 
break; 

case DIVIDE • 
d i V I <l e ( ) ; 
break; 

case CO J 
^^o( ) ; 
break; 

case HOVE : 
mo ve ( ) : 
break; 

case miLTIPLY : 
mu 1 t ( ) ? 
break: 



add statement 



close statement 



display statement 



divide statement 



i^o to statement 



move statement 



multiply statement 



case OPEN J open statement 

open( ) : 
br^n k; 

case PEREORH • perform statement 

perform! ) ; 
br e a k ; 

case READ * rend statement 

rend ( ) ? 
break; 

case SUBTRACT * subtract statement 

r o mpu te ( sub ) ; 
break; 

c a s VTl I TE • ' i t e s t a t e m^ n t 

wr I t c ( ) ; 
b r e n k ; 

defnuM: ermr 

err f Iff = ON; 

errms^t MNCORP-ECT pou.oviro; CONDITIONAL OR ELSE") 



) «?witch statement 

re turn; 



} 



COND 

cond( ) C This routine evaluates a romlitloual phrase and 

returns true or false. 
char temp 1 » teinp2 ; 
save = token(); 

if((terap2 = tokeuO) == NOT) C 
tempi = NOT; 
terap2 “ token( ) ; 

) 

s wl tc h( terop2) C 

case NiJ?IERTC * numeric? 

s p t r = 3 a ve * 16 + base; 

if * me mC s p t r J < = ’ 9 * > 

temp2 = TRUE; 

e Ise 

temp2 - FALSE; 
break; 



case ALPHABETIC • alphabetic? 

sptr = save ^ 16 + base; 

if (memCsptr] > *9') 

terap2 = TRUE; 

else 

temp2 = FALSE; 
break; 

case GREATER * xb > yh? 

i o a d ( x) ; 

save = token( ) ; 
load ( y) ; 

if (slze() == GREATER> 
temp2 - TRUE; 

e Ise 

temp2 = FALSE; 
break ; 

case LESS * xb < yb? 

load(x) ; 

sn ve - tokeu( ) ; 

I o ad ( y) ; 

If (size() LESS) 
temp2 = TRUE; 
e 1 

temp2 = FALSE; 
break; 

case EQU/\I^ J xb = yb? 

load( x) ; 

save = token! ) ; 
load ! y) ; 

If ( size!) == EQU AL ) 

terop2 - TRUE; 

else 

temp2 = FALSE; 
break; 

default* syntax error 

errras^( -INCORRECT voRP IN CONDITIONAL PfIRi^SE'•); 
err f I = ON ; 

) "f’ end switch stnt.eiLent 

if (tempi NOT) t 

if ( t * == TRUE) 

t^i:ir>2 = FALSE: 

else 

ter>pli = TRUE; 



I DO 



) 

re turn( ten:p2) ; 

3 end cond '^/ 

a c c e p t ( ) i 

ne X t 1 i ne ^ » ; 
re t urn ; 

) /V? end accept 

close!) C 

ne X 1 1 i ne ( > ; 
re t urn : 

3 end cl<'se 

display!) C 

next I i ne C > : 
re t urn ; 

) end display 



GO 

?o( ) C This routine searches the procedure division 

from the beginning for a token match. 
c ha r scratch; 
s a ve = t o ke n ( ) ; 
pc = gproc ; 

wh 1 le ( < sc ra I c h - token!)) != save scratch != STOP) 
ne X t 1 i ne ( ) ; 

if (scratch == STOP) ( 

e rr f 1 a: = On ; 

errmsff! "DESTINATION FOR GO STATKHENT NOT FOUND"); 

) 

e Ise 

no X t 1 i ne ( ) ; 
re turn ; 

) ojid 

/* IFS 

t f s ( ) ( This routine determines program flow by testing 

a condition — if true, the imperative directly 
following the condition or NEXT SENTENCE Is per 
formed; if false, the Imperative following the 
ELSE clause Is performed, if present. 

1 f ( cond f ) ) ( 

save = token!); 
if <savo ?= NEXT) 
keywd! ) ; 

e ls» 

next 1 1 ne ; 

3 

^ Iso 

wh 1 le ! ( ! sn ve - t oke n( ) ) ! = ELSE) I ! ( sa ve ? = EOL) ) ; 

li (save == ELSE) C 
s a ve - t o ke n ( ) ; 
ke >*wd ( ) ; 

) 

re t urn : 

3 ^ e nd i f s 

MOVE 

move!) C Tills routine moves the va I in the first Idenli 

f ler or literal Into the s^cf»nd identifier. 

Int i : 

s a ve - t o k M n ( ) ; 

I oad ! x) ; 

if f foken*^ ' !- TO) ( 

cf-rmscrv "TO EXPECTED AFTER IDENTTFiE? IN MOVE STATET^NT 
errfLc = ON: 

3 

s a ve ~ t *'» n ! '♦ ; 
s p t r = - s: 1 ^ + b a s ^ : 



>o ; 




i 



i 



for ( 1=0: i ^ 16; i++) 

shaft 1] = nh?mCsptr + -*-j; 

f lTid( ) ; 

reload^); store value froca yh Into data dlvi^ioji r/ 

ne xt 1 ine ( > : 
re t um ; 

} en<l move 

NiViME 



name( ) C This routine handles the procc^^slna: of paragraph and 

section names. 

If (sp ?= -n C 

then processing within PERFORTl sfatecr^nt */ 
if C(e:stCsp] == save>l*(^xtCspl == i^> C 

iflcntrCsp] == 0) C 
extCsp] = 0; 

pc = rtnCspl: set pc to instr after PERrOHi! 

sp — ; 

next I I no ( ) ; 
else C 

If (cntrCspl ?= mX) ( 

cntrCspl = cntrCsp] - 1: 

y^' perform proc a ^ of times ^y 

pc = hegproc ; 
wh i le ( to ke > 1= psave) 

ne X I I i ne t ) ; 
nex t I i ne ( > ; 

3 

else C UNTIL condition must be evaluated 

if (cond(^"» C 

pc - r I n[ s p 1 ; 
sp — : 

ne X t 1 1 ne f ) ; 

3 

else C 

pc = gproc ; 
whil<^' ‘ token() != psave) 
nex t 1 i ne ( ) ; 
lie X t I i ne ( > : 

3 

3 

3 



3 

} 

else 

next 1 Ine ( 3 ; 
re t arn ; 

3 y^ end name 



open( ) C 
next I 1 ne ( ) ; 
re turn; 

3 end open ^^y 

/* perfor:i ^y 

perfori!i(l C This r-Cvtine causes program flow to jump to a 

parti<^nler procedure and return to t h^ «=tHte- 
men! f* Mowing ! he perform statement. 

Int 1; 

1 = 0: 

r t nf p3 = pc: - S5»ve current program counter 

CTitrCsp] = 0: 

extCsp] = 1: y^ de**anlt ue — exit implied at next proc mne ^y 

psave = tokenC M 

if (( save = tokenM) f- T 

If ( s a ve = = THRU ) f 

e ‘c t [. s p 1 = t o ke n ^ M 

\rn = to ke n < j 

3 

if ^ s n = = TINT I L * ^ 



’ o.:i 



catrC.-?p] = H\X ; 
r j nd p t r = pc ; 

3 

if != EOL) C 

I a4 ( x) ; 

cntrCsp] = xbCO] - ’0*: 

If < y2 * = 2 ) 

ciitrCsp] = (c’^trCsp] ^ 10) + txbCl] - ’0’): 

• f ( y2 > 2) C 

errmsg( "PROCEDHRE C.\XN0T BE EXECUTED > 100 Tim,?"); 

e rr f 1 g = ON ; 

3 

if { token! ) ?= TI>fES) C 

errmsg! "TIMES EXPECTED IN THIS PERFORM STATEMENT" ) ; 
e rr f 1 g: = ON ; 

} 

} 

) 

If (save = EOL) C 

pc = b'^g'proc ; z ' search for proc to be performed 

wh lie (token!) ?= psa ve > 
next I i ne ( ) ; 
ne X t 1 I ae ( ) ; 

) 

re turn ; 

) end perform 

ERRMSG 

errmspf(err) This* routine prints an error raessag-e corresponding 

to errniim which Is set at the time the error 
occ tirred . 

char *err; C 
1 n t i ; 

prlntf( "ERROR OCCURRED AT LINE " ) ; 
for( 1 = 0; I < 5; l-*--^) 

pu tchar ( c InC 1 1 ) ; 
prlntf! •^^"♦err) ; 

re t urn : 

) end errmsg 



y* SIZE 

size!) ( Tills routine returns GREATER if xb > yb 

EQUAL If xb = yb and LESS if xb < yb . 

In t s 1 z , I t 

If (xl > yl) xl, yl contain the ^ of significant digi 

s i z = GREATER ; 
e Ise C 

If { xl yl) 

slz = LESS; 
e 1 se C 

1 = 0 : 

^^hlle ((xbCn '> ybCiJ) QQ ! +- l " y2) ) ; 

if ( I == y2) 

siz = GRE.VfER; 
e ls«» ( 

1 = 0; 

whne!!xbCl] == ybC I 3 )a0! I < y2) ) ; 

I f ( i == y2) 

slz = EQUAL; 

else 

slz ^ 



r s 



) 



3 



return^ sir.) ; 

. K o nd «? i 



/:r. 



F iLn-<'' 



fllbufO f 

If (y2 == 0.» C 

while fx 2 > 0 ) C 

tenpCn — 1 = xb [ — t 2 i r 

c [ n I = ’ 0 ’ ; 

} 

else C 

while f v2 > 0) f 

tempi n — 1 = ybl-~y2.*; 

da] = * 0 ’ : 

: 

) 

re turn ; 

1 / 1: en i fllbnf 



COMPUTE 



compute(op) This routine* adds or subtracts 2 values 

depending ‘>fi the pa name op. 

1 n t o p I C 

lilt a,b,m.l,dif; 
s a ve = to ke n O ; 

ioad(x); loads first operand into buffer xb 

s a ve • t o Ue n ( ) ; 
if (op == sub) C 

If (savA != FROfP r 

e rr f 1 g = ON : 

er^ms^( "FROM RFOUIPED HERE IN SUBTRACT STATEMENT">: 

) 



) 

e Ise ( 

if ( s a ve ? - TO ) f 
e rr f Iflf = ON ; 

errmsff^ "TO REQUIREU HERE IN ADD STATEMENT"); 



1 

save = token( ) ; 

1 o ad ( y> 1 

if (x3 y3) ( 

if (x3 > y3) ( 

dlf = x3 - y3; 
for ( i = I ; 1 < = 

ybC y2+-^ 1 - 

y3 = x3; 

else C 



loads secon<I operand into buffer yb 
x3 , y3 contain the number of dip^its to 
the rlphJ of the decimal p^lnt 
zero fill bufier with shortest 
mantissa to a 1 t i^n decimal p'^^ints 



d i r ; I ) 
0 ; 



d 1 f = y3 - x3 : 
for (l=I{ I dif: 
xbCx 2 ++] = 0 ; 
x3 ^ y3; 

1 

) 



If 


(x2 


) 


= y2) 




m 


s 


x2; 


e Ise 








m 


= 


y2: 


n 2 


m ; 






da] = 


* 


O • ; 


1 f 


( op 




= <aiib) f 




1 f 


( 


XIT = = ^ ) 

X5 * ' - * ; 




else 










xs = 


) 








i f 


(xs 




= ) C 



c r n ] ’ 0 ’ 

■will lo { f y 2 ^ O) ‘^3 ( 






x2 , y2 c ••‘11 tain the total juinb'^^r 
of dibits in each operand 



^ to subtr^*'t. chnn^'=" of l h<> 

f:r*5t op'^ro'l an<l add 



i ' > > C 



' I 



I 

I 



a = xbC — x2] - 'O’; 
b = yb[ — y2] - ’O’; 
tetnpf n — ] = addtablCalLh]; 
cfn] = afldtab2CaK/'M 

} 

f I lbuf( ) ; 
n = ra: 

wh i I e ( n > 0 ) C 

a = I empC n] - ’O’; 

b = c ( n ) - ’O’; 

ybC n — ] =? add t ah I C it i L b ] ; 

1 

j 

5 

e Ise C 

5* wl to 59 Ize ( ) ) C 

ca.^e EQUAL: '.t. x:h = yb 

y«? = xs = ’ + ’ ; 

c [ 0 ] = ’O’; 

y2 = 1; 

y3 = 0; 
break; 

case GREATEIR: xb > yb 

ys = xs ; 

while (y2 > 0) C 

a = xbC — :<2] - ’ 0’ ; 

b = yb[--v21 - ’O’; 
tetnpr n — J = s ui> t ab I [ a ] L b 3 ; 
cCn] = Hnbtnb2Ca]fb3; 

3 

f I Ibnf ( > ; 
break; 

case LESS.* /'x xb < yb 

KS ~ Y& \ 

whi Je (x2 > 0) C 

a = xbC — x23 - ’0’ ; 

b = yb(--y2} - ’0’ ; 
terapCn — 3 = s iib t a b 1 C b J C a 1 ; 

cin] = sub t ah2[ b ] [ a 3 ; 

3 

f I lbuf( ) ; 
break; 

3 /'*• end .switch statement 

a = ra : 

wh ile(n>0) C 

a = tempi n3 - ’O’; 

b = c [ n ] - ’O’; 

ybCn — 3 = sub t ab li a 3 C b i ; 

J 

3 

yb[ 03 - cl 03 ; 
y2 = m; 
yl = y2 - y3; 
re load< ) : 
re turn: 

3 end add 

/'* MILT 1 PLY 

mu 1 t ( ) l Th is rou t i mu ) t 1 p I i es the 1st operand by the 2nd and 

stor«'S I resulv in the second operand. 

charp,cl.c2,c0.e4; 

Int a . b , t 1 , t2, z I , z2. I ; 

s a ve - to ke n ( ‘ ; 

1 o ad ( X ) ; 

I f ( token* » '= P.V) f 

errfJvi- - ON; 



O' 



erriTu^s;< "BV ^vrA'UIRED HERE ?R.'LTIPLV STATEnERT"); 

) 



save = to ke n( ; 
load Py) ; 














z I = X 1 ->■ y 1 ; 




•r 


1 o c a t 1 o 11 


i of d e c i ma 1 p t in t e «ip 




z2 = x2+yJ; 
t2 = z2; 






/if; 


nurih 


of digits in prodTict 


if:/ 


for (a = 0: n<R0; a+'t- ) 




/:fc 


set 


i he output buff to zero 


if:/ 


tempi a ] = ' : 














for^” yl = y2- 1 ; vl> = 


0: yl — ) C 


/ifc 


for 


'i' a c h digit in mu 1 t i p M e r 


if:/ 


c2 = r-4 = MV ; 

t 1 = ; 2 ; 








se t 


•r r r y to ascii zero 


if:/ 


f or X I = x2- i ; 


X 1 > = 


0; xl — ’ r 


/i< 


for 


® a c h digit in mu It ip. tea n^/ 


a = xb 1 t: 11 


-’0‘ 


; b = v;* vl ' - 


’ 0* ; 








p = mil . t ab 1 


lal 


Ibl; 




/'f; 


product of 2 digits 


if:/ 


c 1 = mu 1 t ab2 


la] 


lb] : 




/'X 


s a ve carry 


i#:/ 


a = p- ’ 0 ' ; 


b = 


c2-‘0' : 










p =addtabl 


la] 


lb] ; 






a M previous step carry 


if:/ 


c 2 = add t a b2 


la] 


lb] : 




/ 


s a ve carry 


if:/ 


a = c 2- * 0 * 


t b 


r ^ i ’ O • ; 










c2=ndd t:ibl 


la] 


1 b] I 




/ 


add carry for next s*ep 


if:/ 


a = t e mpl t 1 ] - * 


0 * ; b = T ‘ * 


; 








p =addtabl 


1 aJ 


lb); 




/:K 


eid re^^ult to output 


if:/ 


c0= add t a b2 


la] 


1 h J ; 




/-ic 


s a ve r a r r y 


*/ 


a = p- ’ 0 ’ ; 


b = 


c 4- ’O'. 










t e mpl t 1 ] 


= a d d t a b I lal 1 b ] 


: 


/IX 


add previous carry, save 




c4=add tab2 


la] 


1 bJ ; 




/4C 


<=! a ve ^'arry 


if:/ 


a = c 4- * 0 ’ 


; b 


= c3- ’ ; 










c4= ad <i tab 1 
t2— ; 


1 a ] 


1 bl ; 




/n; 


add carry for ne x t < ^ 


if:/ 








/:^ 


d^^crenont temp counter 


if:/ 



} 

a = c2‘“’0’; b = c4—*0*; 

tempi t I] =ad<ltabi [a] Ib^; rarry ?1SD of output 

y{ ~ z I : 
y2 = z2; 
y3 =y2 - v- 1 ; 
for ( 1=0; 1 ^ = y2; l-»-+) 

yb C I J = mpf I ] ; 

If ( xjs ? = ys ) 

Y9 = ’ - ’ : 

e Ise 

ys = 

re load ( ) : 

re turn; 

1 y ' end multiply 

/'i: DIVIDE 



divldeO C 

'-^^'nils routine U 5 a^<^ t non-res to r 1 ne technique To calculate 
the quotient — xb Is divided into and the quotient 

^tor^d In yb. 

Int a,J, lp, 3 f‘.zl,z 2 : 
char zs ; 

save = tc^^^eat ^ : - l^>?^d operands 

I ond ( x> ; 

If ( tokeT\* * INTO) I 

er r f 1 ; 

ePrms-' MN'P'» REQUIRED HER:' I 'i niVlDE vrEMF.NT” ) : 

) 

s a ve = I o he n : 

I o ad ( y) ; 

gp r y d i i -c 1 o n *3 t e p c o un t 

dp = li 
z 1 = X I - y 1 I . 

for ( J = 0 ; j < .3 2 : J *^ "^ ) 

I e mpr .1 ] = * ; 



t ^ pos ? r ion in i 
! i t« preened i nc 

V. o t » <- p’p to Tcro 



■K/ 






while (xb^Ol == ’O’) C if ?1SO is zero, shift 

for (J^0; J<x2; J+-^) 

xl>[j] = xbtj+1]: 
if (xl •= 

X 1 ; 

x2--; 

) 

while (dp <= t 2 a < 16) C 

while the nnmber of in the output is less than in the 

dividend and the rpmaind*»r ( xb) is not equal to zero 

switch (x=?> C switch on sign of rermin.^^"' 



case * -T* * t 

/'*' if the remainder Is positive subtract the divisor 
.V until the sign ef the reraainJ'^r changes 
so = ’ 0 ’ — 1 ; 

wh lie (xs == ’+*) f 

c onipu t e ( sub ) ; 

S r* + + ; 

) 

tempCdf*++3 = sc; store ASCII value in ten^r- 

break; 

case ' — ’ : 

if the rpmainder is negative, add the divisor until *»'/ 
the sign of t hp reuirainder changes 
sc = ' 9 * + I ; 

wh lie (xs == *-’) I 

compu t e ( add > : 



3 



temp(dp + -’'] = sc: 




store ASCII v-a lue in 


t e mp^/ 


break; 


3 


/% 


end of SWITCH stint 




for ( J = 15 ; J > =0; J — 




shift divisor to rig!' 


1 *>:/ 


yh [ J + 1 1 = yb C J ] ; 


/% 


for UP X t c yc 1 e 




11 




adjust char counters 




/S 


y2++ ??? 




for (a=0; a< 16; a++) 




test remainder ( xb » e 


qua I 


If (xMa] f= 'OM 




to zero 




break: 




/ 't 


‘*nd of WHILE stmt 




If ( xs T = ys ) 




sp t sign of result 




ys = ’ - * ; 

e Ise 

ys - ' + * ; 


II 




save length of output 




y 1 * z 1 : 
y3 = y2 - y I ! 



for(j=0; J < y2; J++) 

yb C J J = tpfnpC J ] ; 
re load ( ) ; 
re turn; 

3 end d I vide 

MAIN 'tt/ 

ma in( ) ( 

This routine reads the edi»or- output f i 1 into a char array 
called mem in memory; Initial ijns varinb'^ valiips in the data 
division: =ican8 the prooodur division ‘ ti by token (byte oy 

byte) for gra inma t I c n I cor»-p tn-<5 and -x - each complplp 

9 t a t e m ' n t as it encounter- it: r*n i n h.a 1 < - ■ n all e r r o r s ' xr - ; - t 
f.aulty pnnoluntlou or wIt^-u *=:rans J ho * *';en lor stop . 



Inti; 

prlntfr "COBOL ITrTERPRETER. 
read 1ti( ) ; 

ffCerrfljy == ON) 


Vers Ion 1 . 0 - ’M ; 


fi;o to e ad ma i n t 

do wn 1 i ne ( > ; /- 


f j ad last EOL — bei^ of symbol tnb^o 



base - cp2 5; sot base to lyte offset of sym tnble 

IbCOJ = 'D’; load lb with 1st li ne ^ of pi’oc i v 

for (1=1; i < COMMErrT; 1 



lb[ n = ’0’ ; 

while ^cofnpare() ?= EQUAL) 
down 1 i ne ( ) ; 
pc = .’p2? 

nex t 1 i ne ( ) t 


/if move proc div into hicrh ^'ore if/ 



begrpf'^c = pc? pc and bes:proc now sr t to 1st executable stat 



for (1=0; i < = 16; li-+) 

sbuf[ n = NTJL; 

1 n i t va 1 ( ) ; 


/^ zero fill the search buffer ' '' 
/if initialize Identifier values r;;/ 


wh lie (((save - token()) ! = 


^ STOP) 88 <^M-rfl^ == OFF)) C 



«can until token for stop or error 



swltch(save) ( 

case COMMENT * 
nex t 1 1 ne t ) ; 
break; 


/if comn<=*nt if/ 


case ACCEPT • 
acc e p t ( ) ; 
break; 


/if aocopt statement if/ 


case ADD : 

compu te( add ) ; 
break; 


/if odd statement if/ 


case CLOSE t 
c 1 o se ( ) ; 
break; 


/if close statement if/ 


case DISPLAY t 
d lap lay( ) ; 
break; 


/if display statement if/ 


case DIVIDE : 
d 1 vide ( ) ; 
break; 


/if dlvtde statement if/ 


case CO • 
goO ; 
break; 


/if ffo to statement if/ 


case IF * 

1 fs( ) ; 
break; 


/if If statement if/ 


case MOVE • 
mo ve ( ) ; 
break; 


/if move statement if/ 


case MULTIPLY : 
mu 1 t ( ) ; 
break; 


^if multiply statement if/ 


case OPEN ; 
o po n( ) ; 
1> r e a k : 


/if opoii statement if/ 


na.c*- PERFORM : 
r f o rm( ) : 
hre a k : 


/if pirform state me n t -I'f / 



c a ® RE A.D • 
r «• n<l ( ) : 



/if r»^n-1 >*» t a t o me 71 1 if/ 



break; 



case SUBTRACT : snb tract staleroent 

compute ( -^ub) ; 
break; 

case ^VRITE • %>rrite statement 

wr i t e ( ) ; 
break; 

deiault: / v label proc nr , s*»c t lo n name or ^ rror 

na me ( ) t 

5 end switch statement 

e nd ma I n * 

wr iteontC): 

} end main — return to rrt^ . >i 1 < o r 



1 o»> 
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